Написать на языке паскаль программу ввода четырех целых чисел и вычисления их среднего арифметического. протестировать программу на различных исходных данных и доказать правильность ее работы

Предыдущий
вопрос Следующий
вопрос

program AverageCalculator;

var
num1, num2, num3, num4: integer;
average: real;

begin
writeln('Enter four integers:');
readln(num1, num2, num3, num4);

average := (num1 + num2 + num3 + num4) / 4;

writeln('Average: ', average:0:2);
end.

Пример тестирования программы:
1. Входные данные: 5 10 15 20
Выходные данные: Average: 12.50
2. Входные данные: 6 6 6 6
Выходные данные: Average: 6.00
3. Входные данные: 0 0 0 0
Выходные данные: Average: 0.00
Программа корректно выполняет вычисление среднего арифметического четырех введенных пользователем целых чисел.