Задание:

Написать программу, получающую с клавиатуры целое число и определяющую, верно ли, что цифры расположены в порядке возрастания.

Написать программу, получающую с клавиатуры целое число и выводящую его наоборот
(Например: вводим: 123, а выводит: 321).

Var   A:longint;   B:boolean;BeginB:=true;Write('Введите целое число: ');ReadLn(A);A:=Abs(A);While A div 10 > 0 do   Begin   if A mod 10 < A div 10 mod 10 then B:=false;   A:=A div 10   End;if B then Write('Верно')else Write('Не верно')End.Var   A:longint;BeginWrite('Введите целое число: ');ReadLn(A);if A < 0 then   Begin   Write('-');   A:=-A;   End;While A > 0 do   Begin   Write(A mod 10);   A:=A div 10   End;End.