Python:
N = int(input())
k = 0
for i in range(N):
x = int(input())
if x > 99 and x <= 999 and x % 10 == 4:
k += 1
print(k)
Pascal:
program sls;
var k,x,n,i:integer;
begin
k:= 0;
readln(n);
for i:= 1 to n do
begin
readln(x);
if (x > 99) and (x < 1000) and (x mod 10 = 4) then
k := k + 1;
end;
writeln(k);
end.
