program average;

uses
  SysUtils;

var
  i: integer;
  h: array[0..9] of integer;
  sum: integer;
  avg: single;
  s: string;

begin
  for i := 0 to 9 do begin
    Writeln('Enter height ', i+1);
    Readln(h[i]);
  end;

  sum := 0;
  for i := 0 to 9 do begin
    sum := sum + h[i];
  end;
  avg := sum / 10;

  Writeln('Average height is ', FloatToStr(avg));
  Readln(s);
end.