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

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

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

program z13;
var a, b, c: integer;
begin
     writeln ('VVedite tri chisla');
     readln(a,b,c);
     if a>b then
        if a<c then
           writeln (a)
        else
          if c>b then
             writeln(c)
          else writeln(b)
     else
         if b<c then
             writeln(b)
         else
             if a>c then
                writeln(a)
             else writeln(c);
     readln();
end.