решите пожалуйста очень необходимо. ДАЮ МНОГО БАЛЛОВ!!!!

Пусть вводятся числа a, b, c. Будем стараться получить a lt; b lt; c и тогда b - то самое "среднее", которое нам надобно получить.
1. Сравним a и b. Если agt;b, обменяем значения местами.
2. Сравним b и с. Если blt;c, то искомое значение b, по другому искомое значение с, но обменивать их местами уже незачем, ведь мы уже узнали, что конкретно надобно вывести.

var
  a,b,c,t:integer;

begin
  Write('Введите три числа через пробел: '); Read(a,b,c);
  if agt;b then begin t:=a; a:=b; b:=t end; // обмен
  if bgt;c then Writeln(c) else Writeln(b)
end.

Пример
Введите три числа через пробел: 13 5 11
11

Var
x,y,z,mid:integer;
begin
Readln(x,y,z);
if (x gt; y) and (x gt; z) then
  if z gt; y then mid:=z
else mid:= y;
if (y gt; x) and (y gt; z) then
  if z gt; x then mid:=z
else mid:= x;
if (z gt; y) and (z gt; x) then
  if x gt; y then mid:=x
else mid:= y;
Writeln(mid);
end.

Пример:
1 3 4
3