Порядок чисел

Заводим переменную ans(answer), если выполняется условие то 1. Все просто
------------------
var
a,b,c,ans:longint;
Begin
readln(a,b,c);
if (c>a) and (c<b) then
ans:=1;
if (c>b) and (c<a) then
ans:=1 ;
Writeln(ans);
end.