program AverageCalculator;

var
num, sum, count: integer;
average: real;

begin
sum := 0;
count := 0;

repeat
write('Enter a number (0 to stop): ');
readln(num);

if num <> 0 then
begin
sum := sum + num;
count := count + 1;
end;

until num = 0;

if count <> 0 then
average := sum / count
else
average := 0;

writeln('Average of the numbers is: ', average:0:2);
end.