For 11 pascal. Программа паскаль​

Question

For 11 pascal. Программа паскаль​

Answer 1

program For11;

var

N, Rez,i :Integer;

begin

Write('Введите N: ');

Readln(N);

rez:=0;

For i:=0 to N do Rez:=Rez+sqr(N+i);

Writeln(Rez);

end.