задача по Паскалю)))

[Лилля]

Помогите,пожалуйста,и объясните как решить данную задачу на Паскале. Даны 4 числа a,b,c,d.Нужно составить программу,которые бы выводила из этих чисел,числа стоящие между максимумом и минимумом,т.е средние числа.пыталась сначала присваивать числам максимум и минимум а потом сравнивать,просто в лоб сравнивала числа между собой но ни чего не выходит.ума не приложу как делать %(((

[Roof]

допустим, пользователь ввел 63 1 5 12
что должна вывести программа?

[Cannibal]

Вот программа для трех чисел. Для четырех, думаю, сможете исправить

{ввести три числа. вывести среднее из них. т.е. то,
 которое находится между минимальным и максимальным}

program zadacha2;
uses
  crt;

var
  A,b,c:integer;{собственно три числа}

begin
  write('Введите три целых числа через пробел ');
  readln(a,b,c);
  {проверяем вариант, когда все числа равны}
  If (a=b) and (b=c) then
    writeln('все числа равны')
  else
    {вариант, когда два числа равны}
    if (a=b) or (a=c) or (b=c) then
      writeln('Не возможно определить. так как два числа равны')
    else
      {Проверяем вариант, когда A>b>c или c>b>a}
      if (a>b)and(b>c) or (c>b)and(b>a) then
        writeln('Среднее - ', b)
      else
        {Вариант b>a>c или c>a>b}
        if (b>a)and(a>c) or (c>a)and(a>b) then
          writeln('Среднее - ', a)
        else
          writeln('Среднее', c);
end.