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

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

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

   min := a[1]; //postavimo pocetnu vrijednost min-a

   for i := 1 to n do
     begin
       if a[i] < min then min := a[i];
       b[i] := min;
     end;

   //ispis

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

   readln;
end.