const
n = 10; //Количество чисел, которое нужно ввести
var
a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}
number, i: integer; //number - количество чисел
begin
number:= 0; //Обнуляем счетчик
for i:= 1 to n do //Вводим n двузначных чисел
begin
writeln('Введите двузначное число');
readln(a[i]);
end;
write('Числа, которые делятся на 4,но не делятся на 6: ');
for i:= 1 to n do {Распечатываем числа, которые делятся на 4, но не делятся на 6}
if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}
begin
write(a[i], ' ');
number:= number + 1;
end;
writeln;
writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);
end.
