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

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.