Вывести квадраты и кубы 10 чисел следующей последовательности: 1 2 4 7 11 16 Pascal ABC

program zz1;

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

begin

a:=1; / / задаем начальное значение числа ряда

for i:=1 to 10 do

begin

write (a, ' '); / / выводим на экран исходный ряд

a:=a + i;

end;

writeln; / / переходим на новую строку

a:=1;

for i:=1 to 10 do

begin

write (a * a, ' '); / / выводим на экран квадраты чисел ряда

a:=a + i;

end;

writeln; / / переходим на новую строку

a:=1;

for i:=1 to 10 do

begin

write (a * a * a, ' '); / / выводим на экран кубы чисел ряда

a:=a + i;

end;

end.