program SumAverage;

var
num, sum, count: Integer;
avg: Real;

begin
sum := 0;
count := 0;

writeln${}^{\prime }Enternumbers(press0tofinish){:}^{\prime }$;

repeat
readln$num$;
sum := sum + num;
count := count + 1;
until num = 0;

count := count - 1; // exclude 0 from count

if count > 0 then
begin
avg := sum / count;
writeln${}^{\prime }Sum{:}^{\prime },sum$;
writeln${}^{\prime }Average{:}^{\prime },avg:0:2$;
end
else
writeln${}^{\prime }Nonumbersentered{.}^{\prime }$;

end.