Паскаль! Найти сумму не превышающую 50-ти квадратов натуральных чисел!

сумма квадратов натуральных чисел до 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.