Дано три целых числа, вычислить среднее арифметическое чисел используя функцию - Pascal

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

Добрый день. Помогите пожалуйста написать программу! Дано три целых числа, вычислить среднее арифметическое двух чисел (первого и второго, первого и третьего, второго и третьего) и среднее арифметическое трех чисел: a)Функция Srzach2 находит среднее арифметическое двух чисел); b)Функция Srzach3 (находит среднее арифметическое трех чисел);

Решение задачи: «Дано три целых числа, вычислить среднее арифметическое чисел используя функцию»

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

function Srzach2(a, b: Integer): Real; begin Srzach2:=(a+b)/2 end;
function Srzach3(a, b, c: Integer): Real; begin Srzach3:=(a+b+c)/3 end;
var a, b, c: Integer;
begin
  Write('Введите 3 числа: '); ReadLn(a,b,c);
  WriteLn('Средние: ',Srzach2(a,b):0:2,' ',Srzach2(b,c):0:2,' ',Srzach2(a,c):0:2,' ',Srzach3(a,b,c):0:2);
end.

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

Объявляются две функции:
- Название первой функции: Srzach2
- Параметры первой функции: a, b: Integer
- Тип возвращаемого значения первой функции: Real
- Тело первой функции: Srzach2:=(a+b)/2
Происходит объявление второй функции:
- Название второй функции: Srzach3
- Параметры второй функции: a, b, c: Integer
- Тип возвращаемого значения второй функции: Real
- Тело второй функции: Srzach3:=(a+b+c)/3
Объявляются переменные:
- Название первой переменной: a
- Название второй переменной: b
- Название третьей переменной: c
- Тип всех переменных: Integer
Вводятся значения переменных с помощью функции ReadLn(a, b, c)
Выводится результат:
- Вывод текста: Средние:
- Вызов функций для каждой пары чисел и троек чисел, вывод с округлением до 2 десятичных знаков:
  - Srzach2(a, b)
  - Srzach2(b, c)
  - Srzach2(a, c)
  - Srzach3(a, b, c)