Даны различные а,б,c, найти,какое из чисел лежит меж 2 другими

Я предлагаю решить эту задачку, написав программу на языке программирования Pascal ABC. Программка может смотреться так:
program zadacha;
uses crt;
var a,b,c:integer;
begin
writeln(vvedite chisla a,b,c:);
read(a,b,c);
if (alt;c) and (agt;b) then writeln (a mejdu c i b);
if (agt;b) and (alt;c) then writeln (a mejdu b i c);
if (bgt;a) and (blt;c) then writeln (b mejdu a i c);
if (bgt;c) and (blt;a) then writeln (b mejdu c i a);
if (cgt;a) and (clt;b) then writeln (c mejdu a i b);
if (cgt;b) and (clt;a) then writeln (c mejdu b i a);
end.