Pascal:var
n, i, a, c: Integer;
begin
Read(n);
c := 0;
for i := 1 to n do begin
Read(a);
if (a div 100 = 0) and (a mod 10 = 3) then
c := c + 1;
end;
WriteLn(c);
end.Python:n = int(input())
c = 0
for i in range(0, n):
a = int(input())
if (a // 100 == 0) and (a % 10 == 3):
c += 1
print(str(c))
Pascal:
var
n, i, a, c: Integer;
begin
Read(n);
c := 0;
for i := 1 to n do begin
Read(a);
if (a div 100 = 0) and (a mod 10 = 3) then
c := c + 1;
end;
WriteLn(c);
end.
Python:
n = int(input())
c = 0
for i in range(0, n):
a = int(input())
if (a // 100 == 0) and (a % 10 == 3):
c += 1
print(str(c))