Программа, вычисляющая среднее арифметическое трёх чисел - Pascal ABC

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

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

var a,b,c:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
write('Среднее арифметическое=',(a+b+c)/3:0:2);
end.

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

var a,b,c:real; - объявление трех переменных типа real для хранения чисел
writeln('Введите 3 числа'); - выводится сообщение с просьбой ввести три числа
readln(a,b,c); - считываются три числа из ввода пользователя
write('Среднее арифметическое=',(a+b+c)/3:0:2); - вычисляется и выводится среднее арифметическое (сумма трех чисел / 3) с точностью до двух знаков после запятой
end. - закрытие программы