Вывести квадраты и кубы 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