Створити код pycharm з мема Токийский гуль 1000-7 щоб рахувало до -6​

#include <iostream>
#include <cmath>

using namespace std;

int main()
{
  int
    numOfSides,
    diameter;
  double
    polygonArea;

  cout << "Input number of sides: ";
  cin >> numOfSides;
  cout << "Input the diameter of the inscribed circle: ";
  cin >> diameter;

  polygonArea = numOfSides * (diameter * diameter / 4) * tan(PI / numOfSides);

  cout << "Polygon area = " << polygonArea << ";\nDelta = "
      << 1 - (PI * (diameter * diameter / 4)) / polygonArea << endl;

  system("pause");

  return 0;
} /* End of the 'main' function */

1) 8
2) 7 выведет 1
3)
11 строка, поменять на k := k + 1;
14 строка заменить на if n = 1 then

Рабочий код

var
    n, k: integer;

begin
    read(n);
    k := 0;
    while n mod 7 = 0 do
    begin
        k := k + 1;
        n := n div 7;
    end;
    if n = 1 then
        writeln(k)
    else
        writeln('He существует')
end.

Правильное решение данной задачи
const
    divider = 7;

var
    n: integer;
    k: real;

begin
    read(n);
    k := ln(n) / ln(divider);
    if round(k) = k then
        writeln(round(k))
    else
        writeln('He существует');
end.