сравнение чисел одной формулой без использования операций сравнения

function cond(a,b:real):integer;
begin
cond:= sign(a-b) shr 15; // или 31 если твой паскаль - 32-битный
end;

writeln(cond(1, cond(a,b)+cond(b,c)));

Это должно работать для a