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

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