APALoff Var
  m : array[1..5] of Integer;
  i,s : Integer;
Begin
  s:=0;
  Writeln('Введите 5 элементов:');
  For i:=1 to 5 do
  Begin
   Readln(m[i]);
   s:=s+m[i];
  end;
  Writeln('Среднее арифметическое: ',s/5);
end.