Урок 9 задача 15

Урок 9 задача 15

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

Решение:

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