program pr;

var
  i, number, result: integer;
  numbers: array [1..5] of integer;

begin
  result := 0;

  for i := 1 to 5 do
  begin
    writeln('Введите число ', i, ':');
    read(numbers[i]);
  end;

  for i := 1 to 5 do
  begin
    number := numbers[i];

    if (number mod 2 = 0) and not (number mod 3 = 0) then
        result := result + 1;
  end;


  writeln('Чисел удовлетворяющих условиям: ', result);
end.