Coставить на бейсике линейную программу для вычисления значения функции

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

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

var

   a, f : integer;

begin

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

   readln(a);

   while a div 10 > 0 do begin

       if (a mod 10) >= ((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 > 0 do begin

       if (a mod 10) >= ((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 > 0 do begin

       if (a mod 10) >= ((a mod 100) div 10) then begin

           writeln('НЕТ');

           break;

       end;

       a := a div 10;

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

   end;

end.

В наше время интернет приобретает колоссальные масштабы. В первые годы существования сети, в том числе и Wi-Fi, она за считанные дни увеличивалась в десятки раз, сейчас рост тоже продолжается.

Казалось бы, подобные технологии лишь облегчают жизнь человека, что тут может быть плохого? Однако, имея возможность найти нужное в интернете, люди автоматически, сами того не осознавая, перестают полагаться на собственную память, не пытаются напрягать извилины там, где всю работу за тебя может выполнить “поисковик”.

Конечно, полностью вред от беспроводного интернета не доказан, но известно и доказано, что нахождение в квартире, помещении роутер WiFi оказывает влияние на состояние здоровья человека.

Общение между друзьями из долгожданных встреч наяву постепенно превращается в переписку в социальных сетях, выражение эмоций мимикой лица – в различные смайлики и картинки. Кроме того, набирает популярность явление интернет-пиратства, когда создатели фильмов, игр и музыки терпят огромные убытки, потому что их работу незаконно публикуют в открытый доступ в сети. Представьте рок-группу из молодых ребят, долгое время репетировавших и сумевших выпустить свой первый настоящий альбом, песни из которого через пару часов становятся достоянием общественности против их воли. Не думаю, что с таким видом грабительства у талантливых людей усиливается желание выпускать свои творения в свет.