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

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

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

var a, b, c: integer;
begin
readln(a, b, c);
if ((a>b) and (a<c)) or ((a>c) and (a<b)) then 
  write(a);
if ((b>a) and (b<c)) or ((b>c) and (b<a)) then
  write (b)
else
  write (c);
end.