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

var s,i:integer;Begins:=0i:=2while i <=50 do begins:=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.