Напишите программу которая вводит четырехзначное число и определяет верно ли что в его десятичной записи цифры стоят в порядке возрастания
Begin var s:=readstring; write ((s[1]end.