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.