var
x,cp:integer;
b:boolean;
begin
read(x);
b:=true;
cp:=10;
while (x>0) do
begin
if (cp<(x mod 10)) then
begin
b:=false;
break;
end else cp:=x mod 10;
x:=x div 10;
end;
if (b) then write('Sunt aranjate crescator') else write('Nu sunt aranjate crescator');
end.
