Написать программу на языке программирования 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.