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

Var n,a,s:integer;
begin
readln(n);
a:=0;
s:=0;
while slt;=n do
 begin
 a:=a+2;
 s:=s+a*a;
 end;
writeln('s = ',s);
end.

Пример:
500
s = 560

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

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

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