program CrazyCoder;

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

begin
  Writeln('Введите 4 числа');
  Readln(a, b, c, d);
  sr := (a + b + c + d) / 4;
  Writeln('Среднее арифмитическое чисел равно:', sr);
end.