Ввести с клавиатуры 2 числа m,n> 0. если n< =m то вывести 1, иначе любое другое число. при выполнении нельзя использовать условные операторы, необходимо оставаться в классе целых типов и использовать операции целочисленной арифметики: div, mod, *, +, -. записать фрагмент программы на pascal. (делающим можно не писать, просто объясните, что мне надо накатать в тетради тогда) работа на abc pascal

while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)