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.