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

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