TANGDAN PASCAL

var a:array[1..100000] of longint;
    n,i:longint;
    s:string;

procedure nhap;
begin
    readln(n);
    for i:=1 to n do
        read(a[i]);
end;

function so_to_xau(x:longint):string;
var s:string;
    k:longint;
begin
    s:='';
    while x>0 do
    begin
        k:=x mod 10;
        x:=x div 10;
        s:=chr(k+48) + s;
    end;
    exit(s);
end;


function tang_dan(x:longint):boolean;
var i:longint;
begin
       s:=so_to_xau(x);
       for i:=2 to length(s) do
        if s[i]<s[i-1] then
            exit(false);
    exit(true);
end;

procedure giai;
var d,i:longint;
begin
   d:=0;
   for i:=1 to n do
        if tang_dan(a[i])=true then
            inc(d);
   write(d);
end;

begin
    assign(input,'tangdan.inp');reset(input);
    assign(output,'tangdan.out');rewrite(output);
    nhap;
    giai;
end.