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

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

  a,b,c: integer;

begin
    writeln('Vvedite chisla A, B, C: ');
    writeln('Vvedite A: ');
    readln (a);
    writeln('Vvedite B: ');
    readln (b);
    writeln('Vvedite C: ');
    readln (c);

    if ( a > b ) and (a < c) then
    writeln(a)
    else
    if (b > a ) and ( b < c ) then
    writeln(b)
    else
    if (c > a ) and ( c < b ) then
    writeln(c);
    readln ();
  end.