Cnt3_3 ввести n чисел, подсчитать количество четных чисел больших или равных 12.

Var s,i,x,n:integer;
begin
writeln('Введите n');
readln(n);
for i:=1 to 6 do
  begin
  readln(x);
  if (x>=12) and (x mod 2=0) then s:=s+1;
  end;
writeln('ответ: ',s);
end.