var k, a: integer;begink:=0;readln(a);while a<>0 dobeginif (a mod 3=0) and (a mod 10=2) then k:=k+1;readln(a);end;writeln(k);end.
192 15 42 57 64 102 0
3
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!