Составить алгоритм и написать программу, которая выводит таблицу кубов первых десяти целых положительных чисел. Процедуру

В теле цикла у нас будет условие на то, чтобы вводимое число было положительным.
Нам нужно будет ввести переменную, которая отвечает за количество раз, которое условие выполнялось:
var i, a;
begin
while I < 10 do
begin
reаdln(a);
writeln(‘Куб числа ’, a, ‘ равен ’, а * а * а);
А тут нужно увеличить переменную i на один. Это будет значить, что операция возведения в куб прошла, а значит, операций осталось провести (10 – i).
Далее цикл завершается и программа заканчивается:
end.