Напишите программку для паскаль! Дано естественное число. Установить, является ли

вот 3 варианта решения задачки:

1. с временной целочисленной переменной заместо булеан.

var

   a, f : integer;

begin

   write('введите число: ');

   readln(a);

   while a div 10 gt; 0 do begin

       if (a mod 10) gt;= ((a mod 100) div 10) then f := 1;

       a := a div 10;

   end;

   if f = 0 then writeln('ДА') else writeln('НЕТ');

end.

2. с строчной переменной которой присваивается текст ответа.

var

   a : integer;

   f : string := 'ДА';

begin

   write('введите число: ');

   readln(a);

   while a div 10 gt; 0 do begin

       if (a mod 10) gt;= ((a mod 100) div 10) then f := 'НЕТ';

       a := a div 10;

   end;

   writeln(f);

end.

3. без дополнительных переменных но с оператором break.

var

   a : integer;

begin

   write('введите число: ');

   readln(a);

   while a div 10 gt; 0 do begin

       if (a mod 10) gt;= ((a mod 100) div 10) then begin

           writeln('НЕТ');

           break;

       end;

       a := a div 10;

       if a lt; 10 then writeln('ДА');

   end;

end.