var
  i, k: integer; 
  a: array [1..10] of integer;

begin
  k := 0;
  writeln('Введите 10 чисел (каждое число с новой строки):');
  for i := 1 to 10 do
  begin
    readln(a[i]);
    k := k + a[i];
  end;
  writeln(k / 10);
end.