var a, b:array [1..100] of real;
    n, i, j:integer;
    c:real;

begin
   repeat
      readln(n);
   until (n < 101) and (n > 0);

   for i := 1 to n do readln(a[i], b[i]);

   //dakle bit je da se mnozi i zbraja suprotno, a[] se povecava, a b[] snizava

   for i := 1 to n do
      begin
         writeln(a[i]:10:2, b[i]:10:2);   //u istoj petlji ispisujemo i racunamo
         c := c + (a[i] * b[n - (i - 1)]);      //ovo se moglo i s posebnom varijablom koju snižavamo svakim prolazom
      end;

      writeln(c:10:2); //ispisemo rezultat...

      readln;
   end.