Составить программу с функцией в паскаль которая находит среднее арифметическое двух чисел

Ниже представлен полный код программы на языке Pascal, в которой вычисление среднего арифметического вынесено в отдельную функцию. Текст программы pascal

program AverageCalculation; { Функция для вычисления среднего арифметического двух вещественных чисел } function GetAverage(a, b: real): real; begin GetAverage := (a + b) / 2; end; var num1, num2, result: real; begin { Ввод исходных данных } writeln('Введите два числа через пробел:'); readln(num1, num2); { Вызов функции и сохранение результата в переменную } result := GetAverage(num1, num2); { Вывод результата с ограничением знаков после запятой } writeln('Среднее арифметическое чисел ', num1:0:2, ' и ', num2:0:2, ' равно: ', result:0:2); { Ожидание нажатия клавиши перед закрытием (для консольных сред) } readln; end. 

Use code with caution.Разбор структуры кода

1. Заголовок функции (function): Мы объявляем функцию GetAverage, которая принимает два параметра a и b типа real (вещественные числа). Тип возвращаемого значения также указан как real, так как деление часто дает дробный результат.
2. Тело функции: В Pascal результат возвращается путем присваивания значения имени самой функции: GetAverage := (a + b) / 2.
3. Основной блок (begin ... end):
   • Программа запрашивает у пользователя ввод двух чисел с помощью readln.
   • Затем она передает эти числа в функцию.
   • Результат выводится на экран. Форматирование вида :0:2 используется для того, чтобы число не отображалось в экспоненциальной форме (например, 5.00 вместо 5.0000000000E+00).

Хотите, чтобы я модифицировал программу для работы с целыми числами или добавил проверку вводимых данных?