var
n, l, l1, m: integer;
flag: boolean;
begin
n := 5432;
l := n Mod 10;
m := n div 10;
flag := True;
While (m > 0) And (flag = True) do
begin
l1 := m Mod 10;
If l1 < l Then
flag := False
Else
begin
l := l1;
m := m div 10
End;
end;
If flag Then
writeln('Образуют')
else
writeln('Не образуют');
end.