Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.