Найти сумму чётных чисел в интервале [от1 до 50] (паскаль)

Var s,i:integer;
Begin
s:=0
i:=2
while i <=50 do begin
s:=s+i;
i:=i+2;
end;
writeln(s)
End.

Var a,i:integer;
    begin
    for i:=1 to 50 do
      if i  mod 2 = 0 then
       a:=a+i;
    writeln(a);
   end.