var n, c, i, x: integer;
begin
readln(n);
c := 0;
for i := 1 to n do
readln(x);
if ((x >= 100) and (x <= 999) and (x div 100 = 3) and (x mod 5 = 0)) then c := c + 1;
writeln(c);
end.
Он должен находить кол-во трёхзначных чисел, начинающихся на 3 и кратных 5, из последовательности длинной n.