Вивести на екран таблиці кубів чисел від 1 до 20 циклічні програми іть

Var
  i:integer;
begin
  for i:=1 to 20 do
    Writeln(i:2,i*i*i:10)
end.

Результат
 1         1
 2         8
 3        27
 4        64
 5       125
 6       216
 7       343
 8       512
 9       729
10      1000
11      1331
12      1728
13      2197
14      2744
15      3375
16      4096
17      4913
18      5832
19      6859
20      8000