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

{вывести квадраты и кубы 10 чисел следущей последовательности: 1, 2, 4, 7, 11, 16...}
const
   N = 10;
var
   i: integer;
   m: integer;
begin
   m:=1;
   for i:=1 to N do begin
      writeln(m:3, '=> ^2=', m*m, ', ^3=', m*m*m);
      m:=m+i;
   end;
   writeln;
end.

вывод

1=> ^2=1, ^3=1
  2=> ^2=4, ^3=8
  4=> ^2=16, ^3=64
  7=> ^2=49, ^3=343
 11=> ^2=121, ^3=1331
 16=> ^2=256, ^3=4096
 22=> ^2=484, ^3=10648
 29=> ^2=841, ^3=24389
 37=> ^2=1369, ^3=50653
 46=> ^2=2116, ^3=97336