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

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