Помогите решить задачу в Паскаль Найдите колличество чётных чисел

Uses crt;

var

i, k, s, n:integer;

begin

k:=0;

writeln ('Последовательность');

readln (n);

for i:=1 to n do begin

writeln ('Введите число');

readln (s);

if (s mod 2=0) then

k:=k+1;

writeln ('s=', s);

end;

writeln ('Количество четных=', k);

end.