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

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

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

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

вывод консоли

vvedite chislo a
2
vvedite chislo b
2
vvedite chislo c
1
mediana naidena 2