Задача 13 урок 9

http://fkn.ktu10.com/?q=node/8539
У вас есть три числа (три переменные) найдите их медиану(link is external)

program task13_lesson10;
var a,b,c:integer;
begin
     writeln('Enter 3 number:');
     readln(a,b,c);
     if ((a < b) and (a > c)) or ((a > b) and (a < c)) then
        writeln('Meridian is: ',a)
        else
            if ((a > b) and (b > c)) or ((a < b) and (b < c)) then
               writeln('Meridian is: ',b)
               else
                   writeln('meridian is: ',c);
readln();
end.