Решить в паскаль найдите колличество чётных чисел

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.