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