Question

напишите программу которая считает сумму квадратов чисел от 1 до 7

Answer 1

var i, S, N : integer;

begin

  S := 0;

  for i:=1 to 7 do S := S + i*i;

  WriteLn('summa = ', S)

end.