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

У вас есть три числа (три переменные) найдите их медиану(link is external)

var a, m, s:integer;
begin
    a:=4;
    m:=5;
    s:=6;
    if (a < m) AND (m < s) then;
       writeln('Mediana ravna m');
    readln();
end.