program Project6;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Character;
  var
  load, cc: Integer;
  inp: integer;
  procedure Calc();
  begin
  repeat
  Readln(inp);
  if (inp in [1..100]) then
  begin
  load:= load + inp;
  inc(cc);
  Writeln('Среднее - ', Round(load/cc));
  end;
until inp = 0;
  end;
begin
Writeln('Вводите числа...');
cc:= 0;
Calc();
end.