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

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

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

program project1;

var
  a, b, c: integer;

begin
  a := 1;
  b := 1;
  c := 2;
  if (((a>=b) and (a<=c)) or ((a<=b) and (a>=c))) then
    writeln ('Mediana: ', a)
  else if (((b>=a) and (b<=c)) or ((b<=a) and (b>=c))) then
    writeln ('Mediana: ', b)
  else
    writeln ('Mediana: ', c);

  readln();
end.