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