задача А Четные
Дается последовательность из N чисел. Выведите сумму четных чисел среди них.

varn,i,sum:Integer;Begin Read(n); for i:=1 to n do  begin   if (i mod 2=0) then sum:=sum+i;  end;  Writeln(sum); end.