Дано трехзначное число. Вывести «Yes», если его цифры образуют возрастающую или убывающую последовательность. В противном случае вывести «No».

const N=10; var i, b, s: integer;     a: string; begin      readln(b);      a := inttostr(b);      for i := 1 to length(a) do          if (strtoint(a[i]) > s) then             s := strtoint(a[i])          else              s:=10;      if (s = 10) then writeln('No') else writeln('Yes'); end. Удачи =)