задача на цикл

[настя)))))]

найти все натуральные 4-значные числа,цифры в которых обрзуют строго возрастающую последовательность(например 1234,5678)

[настя)))))]

помогите пожалуйста кто -нибудь

[ByAlex]

В чем сложность?

[Mad_Cat]

var i,j,k,m:integer;
begin
for i:=1 to 6 do
for j:=i+1 to 7 do
for k:=j+1 to 8 do
for m:=k+1 to 9 do
  writeln(i*1000+j*100+k*10+m);
 end.

[Camaro Chevelle]

Сообщение от Mad_Cat

...
  writeln(i*1000+j*100+k*10+m);

writeln(i, j, k, m);

[Mad_Cat]

найти все натуральные 4-значные числа

а не вывести их цифры)