cho các số phần tử : 5 -3 10 20 1 6 -2 tìm số phần tử nhỏ hơn hoặc bằng 5

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.