program Test;
uses crt;
var
i,len : integer;
str : string[11];
result : string[5];
begin
write('Input string: ');
readln(str);
len:=length(str);
result:='false';
if (len>1) and (len<=10) then begin
i:=1;
while (str[i+1]<str[i]) and (i<len) do begin
//write(str[i+1]);
inc(i);
end;
if (i=len) then begin
result:='true';
end;
end;
writeln(result);
end.