program Hello; var n,i,d,x,c:longint; s,a:string; begin readln(S); s:=s+ ' s'; while s[i] <> 's' do begin inc(i); if s[i] = ' ' then begin val(a,x,c); a:= ''; if x <= 5 then inc(d); end; a:= a + s[i]; end; writeln(d); end.
var i,count:longint; a:array[1..1000]of longint; begin assign(input,'input.pas');reset(input); assign(output,'output.pas');rewrite(output); i:=1; while not(eof(input))do begin read(a[i]); if a[i]<5 then inc(count); end; write(count); close(output); close(input); end.