If13. даны три числа. найти среднее из них (то есть число, расположенное ме-жду наименьшим и наибольшим). !

var
a,b,c,x:integer;
begin
  writeln('Введите три числа: ');

  readln(a,b,c);
  if (a>c) and (a>b) then
    if c>b then x:=c
    else x:=b;
  if (b>a) and (b>c) then
    if a>c then x:=a
    else x:=c;
  if (c>a) and (c>b) then
    if a>b then x:=a
    else x:=b;
writeln('Среднее число: ',x);
end.