function Average(var a: array of integer): real;
var
  i: Integer;
begin
  for i := Low(a) to High(a) do readln(a[i]);
  Result := 0;
  for I := Low(a) to High(a) do Result := Result + a[i];
  Result := Result / (High(a) - Low(a) + 1);
  writeln('Srednaya massiva = ', Result);
end;
var
  p: array [0..5] of integer;
begin
  writeln('vvedite el-ty massivy');
  writeln(Average(p));

  writeln('Press Enter to exit...');
  readln;
end.