Составте программу на языке программирования Паскаль АБС. Даны 3 числа. Найдите среднее арифметическое этих чисел

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

program AverageCalculation;

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

begin
// Ввод трех чисел
writeln('Введите три числа:');
readln(num1, num2, num3);

// Вычисление среднего арифметического
average := (num1 + num2 + num3) / 3.0;

// Вывод среднего арифметического
writeln('Среднее арифметическое введенных чисел: ', average:0:2);
end.