Question

Помогите решить очень это инфа

Answer 1

Var A,N:integer;
Begin
A:=1;
For N:= 0 to 9 do
    Begin
    A:=A+N;
    WriteLn(A,' ',A*A,' ',A*A*A)
    End;
End.