Question

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

Answer 1

var a,b,c,d,e:real;

begin

  read(a,b,c,d);

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

  writeln(e:0:4);

end.