Паскаль!Найти сумму не превышающую 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.