На вход даются числа от 1 до 250. Признак окончания ввода 0. Найти кол-во чисел кратных 3 и содержащих 2.

Var x, kol, a1, a2, a3:integer;

begin

read (x);

while x0 do begin

if ((x mod 3) = 0) then begin

a1:=x div 100;

a2: = (x div 10) mod 10;

a3:=x mod 10;

if (a1=2) or (a2=2) or (a3=2) then inc (kol);

end;

read (x);

end;

writeln (kol);

end.