Написать программу без использования "if-then" Опции

[Melian]

Всем привет) Очень нужна ваша помощь, написать нужно всего лишь строчку.

Даны 3 числа: А,B,C.
Написать программу, которая выдает 1, если числа расположены по возрастанию и 0, если наоборот. НО запрещается использовать "if-then" и вообще любые циклы. Можно использовать умножение, деление, остатки и т.д.)

var a,b,c,rez:integer;

Begin
WriteLn("Введите 3 числа");
ReadLn(a,b,c);

rez:=(вот это нужно написать)

WriteLn(rez);
End.

[Melian]

Огромное спасибо!)))