Задача 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.