Очень
постройте логисеское выражение по данной схеме

#include <iostream>

#include <cmath>

#include <ctime>

using namespace std;

int main (void)

{

 srand (time (0));

 int Temp = 0;

 int max = 1;

 int maxi = 0;

 int n = 0;

 cout << "Input n = ";

 cin >> n;

 cout << endl;

 int *A = new int[n];

 for (int i = 0; i < n; i++)

   {

     A[i] = -10 + rand () % 30;

     cout << A[i] << "   ";

   }

 for (int i = 0; i < n; i++)

   {

     if (abs (A[i]) > abs (max))

{

  max = A[i];

  maxi = i;

}

   }

 cout << "\nABS(Max) = " << max << "  Number = " << maxi;

 Temp = A[n - 1];

 A[n - 1] = max;

 A[maxi] = Temp;

 cout << endl;

 for (int i = 0; i < n; i++)

   {

     cout << A[i] << "  ";

   }

 delete[]A;

}

Объяснение:

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.