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

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