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

Question

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

Answer 1

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.

Удачи =)