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

Uses crt;vari,k,s,n:integer;begink:=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.