Написать программу, которая находит среди всех натуральных четырехзначных чисел те, цифры в которых образуют строго убывающую последовательность. Например, 9876 и 8421 - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
a,b,c,d:integer;
begin
for a:=4 to 9 do
for b:=3 to a-1 do
for c:=2 to b-1 do
for d:=1 to c-1 do
write(a*1000+b*100+c*10+d:5);
readln;
end.