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

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.