program aqrr;
uses crt;
const n=11;
var
y, a,c,b,d,f,g:integer;
begin
clrscr;
Write('Введите пятизначное число а=');
Readln(a);
b:=a div 10000;
c:=(a div 1000) mod 10 ;
d:=(a div 100) mod 10 ;
f:=(a mod 100)div 10 ;
g:=a mod 10 ;
begin
if (b write('Цифры расположены по возрастанию') else
write('Цифры расположены по в разнобой') ;
readln;
end;
end.