составьте алгоритмы, выполнить его на компьютере вычесления среднего арифметического 4х чисел, которые задаются в программе паскаль ABC​

PascalABC

Объяснение:

var

 a, b, c, d, sr: real;

begin

 Write('Введите четыре числа через пробел: ');

 ReadLn(a, b, c, d);

 sr := (a + b + c + d) / 4;

 WriteLn('Среднее арифметическое данных чисел равно ', sr:4:2);

end.