Program noname;                        //НАЗВАНИЕ ПРОГРАММЫ

Var e,d,c,x:integer;                     //ОПИСАНИЕ ПЕРЕМЕННЫХ

Begin

For x:=100 to 999 do                  //НАЧАЛЬНОЕ И КОНЕЧНОЕ ЗНАЧЕНИЕ ЦИКЛА (1 шаг) 

                                                      (трехзначные числа)

Begin

c:=x div 100;                                    //НАХОДИМ СОНИ

d:=(x div 10)  mod 10;                  //НАХОДИМ ДЕСЯТКИ  (шаг 2)

e:=x mod 10;                                 //НАХОДИМ ЕДИНИЦЫ

 

If (e>d) and (d>c) then  Writeln (x);                 (шаг 3)

                                   //ЕСЛИ ЕДИНИЦЫ БОЛЬШЕ ДЕСЯТКОВ И ДЕСЯТКИ БОЛЬШЕ СОТЕН  

End;

 

End.

 

 

Этапы решения

1 шаг) находим диапозон трехзначных чисел

2 шаг) находим цифры числа

3 шаг) сравниваем цифры числа и выводим число требуемое по условию