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

Pascal ABC

var a,b:real; begin a:=1; b:=0; repeat writeln('Квадрат числа ',a,' = ',sqr(a),' Куб числа ',a,' = ',power(a,3)); a:=a+1+b; b:=b+1; until b>9 end.