program try;
var
a,k :integer;
s :real;
begin
a:=0; k:=0; s:=0;
while a <> 777 do
begin
readln(a);
k:=k+1;
s:=s+a;
end;
s:=s/k;
writeln('Количество ',k);
writeln('Среднее арифметическое ',s:5:1);
end.
program try;
var
a,k :integer;
s :real;
begin
a:=0; k:=0; s:=0;
while a <> 777 do
begin
readln(a);
k:=k+1;
s:=s+a;
end;
s:=s/k;
writeln('Количество ',k);
writeln('Среднее арифметическое ',s:5:1);
end.