Напишите программки в Pascal:1. Ввести целое число и найти, верно ли,

Var A,B,k,n,m:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
B:=A;
n:=0;
k:=0;
While Blt;gt;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 gt; 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 Alt;gt;0 do
   Begin
   Write(A mod 10);
   A:=A div 10
   End;
End.

//PascalABC.Net 3.2
1
begin
var n:=readstring('Число: '); var b:=true;
for var i:=1 to length(n)-1 do if n[i]gt;n[i+1] then b:=false;
write (b? 'Да':'Нет')
end.

2
begin
write (readstring('Число: ').Inverse)
end.