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

Var   N:longint;   k:byte;BeginWrite('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.