KG PASCAL

var    n:string;
    d:longint;
    kt:boolean;

procedure nhap;
begin
    readln(n);
    d:=length(n);
end;

procedure giai;
var i:longint;
begin
    kt:=true;
    for i:=1 to d-1 do
        if n[i]>n[i+1] then 
            kt:=false;
    write(kt);
end;

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