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

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

//решение
var x, y, z: integer;

begin
  writeln('Vvedite chislo x');
  readln(x);
  writeln('Vvedite chislo y');
  readln(y);
  writeln('Vvedite chislo z');
  readln(z);
  if (((x > y) AND (x < z)) OR ((x > z) AND (x < y))) then
      writeln(x)
  else if (((y > x) AND (y < z)) OR ((y < x) AND (y > z))) then
      writeln(y)
  else
      writeln(z);
  readln();
end.