(программирование паскаль) ! c клавиатуры вводится целое число. вывести на экран: следующее число, удвоенное значение числа, квадрат числа, куб числа, квадратный корень числа.

Var a:integer;
begin
write('a = '); readln(a);
writeln('следующее число = ',a+1);
writeln('удвоенное значение числа = ',2*a);
writeln('квадрат числа = ',a*a);
writeln('куб числа = ',a*a*a);
writeln('квадратный корень числа = ',sqrt(a));
end.

Пример:
a = 16
следующее число = 17
удвоенное значение числа = 32
квадрат числа = 256
куб числа = 4096
квадратный корень числа = 4

Процессы

Термин «процесс» впервые появился при разработке операционной системы Multix и имеет несколько определений, которые используются в зависимости от контекста, согласно которым процесс — это:

-программа на стадии выполнения
-«объект», которому выделено процессорное время
-асинхронная работа

Для описания состояний процессов используется несколько моделей. Самая простая — модель трех состояний.Она определяет следующие состояния процесса:
-состояния выполнения
-состояния ожидания
-состояния готовности

Выполнение — это активное состояние, во время которого процесс обладает всеми необходимыми ему ресурсами. В этом состоянии процесс непосредственно выполняется процессором.

Ожидание — это пассивное состояние, во время которого процесс заблокирован и не может быть выполнен, потому что ожидает какое-то событие, например, ввода данных или освобождения нужного ему устройства.

Готовность — это тоже пассивное состояние, процесс тоже заблокирован, но в отличие от состояния ожидания, он заблокирован не по внутренним причинам (ведь ожидание ввода данных — это внутренняя, «личная» проблема процесса — он может ведь и не ожидать ввода данных и свободно выполняться — никто ему не мешает), а по внешним, независящим от процесса, причинам.

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.