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

program n1;uses crt;vari,a,b,c,k:integer;begink:=0;for i:=100 to 999 do begin  a:=i div 100;  b:=i div 10 mod 10;  c:=i mod 10;  if (a<b) and (b<c) then k:=k+1;end;writeln(k);end.