PROGRAM quadrati

informatica

PROGRAM quadrati;

Uses wincrt;

Var

N:integer;

somma:integer;

conta:integer;

Q:integer;

Begin

conta:=0;

somma:=0;

Write ('Dammi il numero generico');

Readln (N);

repeat

conta:=conta+1;

Q:=sqr(conta);

somma:=somma+Q;

until conta=N;

Write ('La somma dei quadrati e'' ',somma);

Readln;

END.