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

program zz1;

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

begin  

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

begin

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

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

end;

end.