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

var a, i: integer;begin  a := 1;  for i := 1 to 10 do  begin    writeln(a:3, '  ', a*a:5, '  ', a*a*a:8);    a := a + i;  end;end.Тестовое решение:  1      1         1  2      4         8  4     16        64  7     49       343 11    121      1331 16    256      4096 22    484     10648 29    841     24389 37   1369     50653 46   2116     97336