Помогите составить простейшую программу в Paskal (Borland). Ввести пять чисел и найти сумму четных.

var
i, n, s: integer;
begin
write('enter numbers: ');
for i := 1 to 5 do begin
read(n);
if not odd(n) then inc(s, n);
end;
writeln('sum of evens: ', s);
end.