Введите три натуральных числа, меньшее из промежутка заменить полусуммой остальных - Turbo Pascal

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

Условие задачи: Введите три натуральных числа, меньшее, из промежутка (1,7) заменить полусуммой остальных.

Решение задачи: «Введите три натуральных числа, меньшее из промежутка заменить полусуммой остальных»

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

var
  a,b,c,m:integer;
begin
  write('a,b,c=');
  readln(a,b,c);
  m:=-1;
    if (a>1) and (a<7) then m:=a;
    if (b>1) and (b<7) and ((m>b) or (m=-1)) then m:=b;
    if (c>1) and (c<7) and ((m>c) or (m=-1)) then m:=c;
    if m=a then writeln((b+c)/2:10:2,b:10,c:10) else
      if m=b then writeln(a:10,(a+c)/2:10:1,c:10) else
         if (m=c) then writeln(a:10,b:10,(a+b)/2:10:2) else
           writeln('No numbers in interval (1,7)');
  readln;
end.

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

В начале объявляются переменные a, b, c и m типа integer.
Затем происходит чтение трех чисел с помощью функции readln(a, b, c).
Переменная m инициализируется значением -1.
Далее выполняется несколько условий, которые проверяют, какие числа были введены.
Если число a больше 1 и меньше 7, то m присваивается значение a.
Если число b больше 1 и меньше 7, и m больше или равно b, или m равно -1, то m присваивается значение b.
Если число c больше 1 и меньше 7, и m больше или равно c, или m равно -1, то m присваивается значение c.
Затем проверяется, какое число было выбрано для m.
Если m равно a, то выводится среднее арифметическое b и c с помощью функции writeln((b+c)/2:10:2,b:10,c:10).
Если m равно b, то выводится a и среднее арифметическое b и c с помощью функции writeln(a:10,(a+c)/2:10:1,c:10).
Если m равно c, то выводится a и b и среднее арифметическое a и b с помощью функции writeln(a:10,b:10,(a+b)/2:10:2).
Если ни одно из условий не выполнилось, то выводится сообщение No numbers in interval (1,7).
Выполняются команды readln и end.