Question

помогите срочно надо вывести квадраты и кубы последовательности 1 2 4 7 11 16..... (паскаль)

Answer 1

Program kub_i_kvadrat;

var a,b:integer; 

begin

b:=1;

 for a:=0 to 9 do 

 begin b:=b+a;

 writeln(b:20,b*b:20,b*b*b:20)

 end;

 end.