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

Удачи = )