Var A,B,k,n,m:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
B:=A;
n:=0;
k:=0;
While B<>0 do
   Begin
   n:=n+1;
   B:=B div 10;
   End;
m:=A mod 10;
For n:= 1 to n-1 do
    Begin
    A:=A div 10;
    if (m > A mod 10) then
       Begin
       k:=k+1;
       m:=A mod 10;
       End;
    End;
if k = n then Write('Верно')
else Write('Не верно')
End.



Var
A:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
While A<>0 do
   Begin
   Write(A mod 10);
   A:=A div 10
   End;
End.