написать программу в паскале: посчитать числа в квадрате от 1 до n

Объяснение:

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.