Question

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

Answer 1

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.

Answer 2

спасибо большое, очень помог

Answer 3

а нок и нод знаешь?