ПОМОГИТЕ ПЛИЗ !!!! найти сумму чётных чисел в интервале [от1 до 50] (ПАСКАЛЬ)

Question

ПОМОГИТЕ ПЛИЗ !!!!
найти сумму чётных чисел в интервале [от1 до 50]
(ПАСКАЛЬ)

Answer 1

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

Answer 2

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