program raf105;
var a:array[1..100] of integer;
i,b:integer;
begin
i:=1;
b:=1;
a[1]:=1;
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
while a[i] <> 0 do
begin
readln(a[i]);
if (a[i]<100) and (a[i]>9) and ((a[i] mod 3) = 0) and ((a[i] mod 2) = 0)
then b:= b*a[i];
end;
writeln('Произведение двузначных чисел кратных двум и трём равно: ',b);
end.
Программа написана на языке PascalABC
