Дано трехзначное число. вывести «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.

Удачи =)