Дз по информатике, срочно!

Question

Найти сумму квадратов от 1 до N 
(S=1+4+9+ ... + n² )

kseniashine · Accepted Answer

Program programma;
Uses crt;
var n, s, i: integer;
Begin clrscr;
write ('Введите число N = ');
readln (n);
write ('S=');
for i:=1 to n-1 do
begin
s:=s+sqr (i);
write (sqr (i),'+');
end;
s:=s+sqr (n);
write (sqr (n),'=', s);
End.