Написать программу в паскале используя циклы: Вычислить кубы всех целых чисел от 1 до 20.

program zz1;

var i, s:integer; / / задаем переменные целого типа

begin

for i:=1 to 20 do / / организуем цикл, в котором переберем все числа от единицы до двадцати

begin

s: = i * i * i; / / высчитываем куб очередного числа

writeln (' для числа = ', i, ' его куб = ', s); / / выводим ответ в столбик

end;

end.