Какие из чисел удовлетворяют условию (x % 10 == 0 and x > 22) or x % 3 == 0?

10
12
6
18
20
50
60
100
98

12, 6, 18, 50, 60, 100

Объяснение:

program qq;

var x:integer;

begin

 while(True) do begin

   read(x);

   if((x mod 10 = 0) and (x > 22)) or (x mod 3 = 0) then writeln('"',x,'"');

 end;

end.