сумма квадратов натуральных чисел до 50
var
i: integer;
s := 0;
begin
for i := 1 to 50 do
s := s + i * i;
writeln(s);
end.
сумма квадратов натуральных чисел ближайшая к 50
var
s := 0;
i := 0;
begin
repeat
s := s + i * i;
i := i + 1;
until s + i * i >= 50;
writeln(s);
end.