!!!Ввести целое число и определить, верно ли, что все его цифры расположены в порядке возрастания. паскаль!!!

begin
  var n:=ReadInteger;
  var s:=n.ToString;
  if s.OrderBy(c->c).JoinIntoString=s then Writeln('Верно')
  else Writeln('Неверно')
end.


125679
Верно