Question

Помогите пожалуйста!!!:)
Заданы четыре числа,введенные пользователем (через клавиатуру) .Найти среднее арифметическое.

Answer 1

program n1;
var a,b,c,d,s: real;
begin
writeln('введите четыре числа');
read (a,b,c,d);
s:=(a+b+c+d)/4;
writeln ('ср. ариф.четырех чисел=',s)
end.