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

vara1,a2,a3,i,n:integer;a:array[1..10]of integer;beginwriteln('Ввод трехзначных чисел');for i:=1 to 10 doreadln(a[i]);for i:=1 to 10 do begin a1:= a[i] div 100; a2:= (a[i] div 10 )mod 10; a3:=a[i] mod 10; if (a1 < a2) and (a2 < a3) then   n += 1;end;writeln(n);  end.