assign(input_file,'u44a.txt');
reset(input_file);

read(input_file,number);
count:=0;
while (number<>-1) do begin
if number < 5 then begin
count:=count+1;
end;
read(input_file,number);
end;

write('the count of numbers in u44a.txt is ',count);
writeln;
end.