Вычислите сумму 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.