составить программу вычисления сумму четных чисел от 2 до n

program s;

uses crt;

var n,i,sum:integer;

begin

clrscr;

write('n=');

readln(n);

s:=0;

for i:=2 to n do 

begin

if not odd(i) then 

s:=s+i;

end;

writeln(s);

readln;

end.