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

Формулировка задачи:

Задача "Определить среднее из трёх чисел". Мой код :

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.

Вроде бы работает. А можно как-то проще?

Решение задачи: «Найти среднее среди трех введенных чисел»

Листинг программы

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.

Объяснение кода листинга программы

Объявлены три переменные: a, b, c типа integer.
Переменным a, b присвоены значения 10, 0 соответственно.
Переменной c присвоено значение 20.
Если a меньше b, то с помощью процедуры swap значения переменных a и b меняются местами.
Если b меньше c, то с помощью процедуры swap значения переменных b и c меняются местами.
Если a меньше b, то с помощью процедуры swap значения переменных a и b меняются местами.
Выводится значение переменной b.
Значение переменной b является средним среди трех введенных чисел.