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.