компьютер перебирает четные числа до тех пор пока сумма их квадратов не привысет n. чему равна сумма квадратов?pascal

Какой-т бред здесь намутил, вроде рабочий  :)

label 1;
var i,n,s:longint;

begin
 write('Write n: '); readln(n);
 s:=0;
 for i:=1 to 10000 do
  begin
   if s<n
    then
     If i mod 2=0
      then
       s:=s+sqr(i)
      else
       goto 1
    else
     break;
   1:
  end;
 writeln(s);
 readln
end.