Объяснение:
program Num1;
var i, s, n : integer;
begin
write('Последнее число n = ');
readln(n);
s:= 0;
for i:=1 to n do s:= s + i*i;
writeln('Сумма квадратов всех чисел = ', s)
end.
