Вычислите сумму n натуральных четных чисел, начиная с 2.

program xxx;

  var i, n, s : integer;

begin

   write('введите число N=');

   readln(n);

   s:=0;

   i:=2;

   while i<=n do

     begin

       s:=s+i;

       i:=i+2

     end;

   write('сумма четных чисел =', s);

   readln

end.