Найти среднее среди трех введенных чисел

Program TheAverageOfNumbers;
var a,b,c : Integer;
Begin
    Writeln('Type three numbers');
    Readln(a,b,c);
    If (b>a) and (b<c) then
    Writeln (b)
    else
    If (b<a) and (b>c) then
    Writeln(b)
    else
    If (a<b) and (a>c) then
    Writeln (a)
    else
    If (a>b) and (a<c) then
    Writeln (a)
    else
    If (c<b) and (c>a) then
    Writeln (c)
    else
    If (c>b) and (c<a) then
    Writeln(c)
    else
    If (a=b) or (a=c) or (b=c) or ((a=b) and (b=c)) then 
    Writeln ('Error');
End.

var a,b,c,mn,mx,x : Integer;
Begin
    Writeln('Type three numbers');
    Readln(a,b,c);
    if a>b then mx:=a else mx:=b;
    if c>mx then mx:=c;
    if a<b then mn:=a else mn:=b;
    if c<mn then mn:=c;
    x:=a+b+c-mn-mx;
    Writeln (x);
End.

  if a<b then
    swap(a,b);
  if b<c then
    swap(b,c);
  if a<b then
    swap(a,b);
  writeln(c);

program Compare;
 
  procedure Swap(var a, b: integer);
  var
    temp: integer;
  begin
    temp := a;
    a := b;
    b := temp;
  end;
 
var
  a, b, c: integer;
begin
  a := 10;
  b := 0;
  c := 20;
  if a < b then
    swap(a, b);
  if b < c then
    swap(b, c);
  if a < b then
    swap(a, b);
  writeln(b);
end.