Question

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

Answer 1

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

var
  a,b,c,t:integer;

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

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

Answer 2

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

Пример:
1 3 4
3