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

// PascalABC.Net 3.0, сборка 1066var  i,j,k:integer;begin  k:=0;  for i:=1 to 9 do    for j:=i+1 to 9 do    begin; Inc(k); Write(i,j,' ') end;  Writeln;  Writeln('Количество чисел равно ',k)end.Результат выполнения программы:12 13 14 15 16 17 18 19 23 24 25 26 27 28 29 34 35 36 37 38 39 45 46 47 48 49 56 57 58 59 67 68 69 78 79 89 Количество чисел равно 36