СРОЧНО
Дано целое число N. Выяснить является ли последовательность цифр это числа при просмотре справо налево возрастающей. Например, для числа 762 - ответ положительный, а для числа 8782 - ответ отрицательный

Var
   N:longint;
   k:byte;
Begin
Write('N = ');ReadLn(N);
k:=1;
N:=Abs(N);
While N div 10 > 0 do
   Begin
   if N mod 10 > (N div 10) mod 10 then k:=0;
   N:=N div 10
   End;
if k=1 then Write('Ответ положительный')
else WriteLn('Ответ отрицательный')
End.