Составьте программу вычисления количества трёхзначных чисел у которых: цифры упорядочены строго по убыванию.

program zz1;

var a, b, r, i, p:integer; / / задаем переменные целого типа

begin

for i:=100 to 999 do / / организуем цикл, в котором переберем все трехзначные числа

begin

a: = i mod 10; / / получаем третью цифру

b: = i div 100; / / получаем первую цифру

r: = (i mod 100) div 10; / / получаем вторую цифру

if (b > r) and (r > a) then p: = p + 1; / / проверяем цифры на убывание, если строго убывают, то считаем

end;

writeln (' количество найденных трехзначных чисел = ', p); / / выводим ответ

end.