Написать программу на языке программирования Paskal, которая будет находить сумму всех четных чисел в диапазоне от 1 до N (N- вводится с клавиатуры)

var i, n,  sum: integer;  beginreadln(n);for i:=1 to n do if i mod 2=0 then sum:=sum+i;writeln(sum);end.