составить программу, печатающую значение 1, если указанное высказывание является истинным, и 0 в противном случае: цифры данного двузначного числа N образуют строго возрастающую последовательность

Реализация на паскале:var n:integer;beginrepeatreadln(n);until (n > 9) and (n < 100);if n mod 10 > n div 10 then writeln('1') else writeln ('0');end.