var n, s, k, a: integer;begins:=0;readln(n);for k:=1 to n dobeginreadln(a);if (a mod 3=0) and (a mod 10=2) then s:=s+1;end;writeln(s);end.
32 99 12 192 15 0 43 42 59 69 102
4
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!