输出巨恶心，行末无回车

Program P1004;
var
   a,b:double;
   i:longint;
begin
   read(a);
   for i:=2 to 12 do
   begin
      read(b);
      a:=a+b;
   end;
   a:=a/12;
   write('$',a:2:2);
end.