Question

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

Answer 1

var
n,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.