const eps=0.00000001;
var n,m,i,j,k,l,u:word;
    a:array[1..303,1..303]of real;
    sol:array[1..303]of real;
    f:text;
    aux:real;
    nupot:boolean;
begin
assign(f,'gauss.in');
reset(f);
readln(f,n,m);
for i:=1 to n do
 for j:=1 to m+1 do
  read(f,a[i,j]);
close(f);
i:=1;j:=1;
while (i<=n)and(j<=m) do
 begin
  k:=i;
  while ((a[k,j]<eps)and(a[k,j]>-eps))and(k<>n+1)do
   inc(k);
  if k=n+1 then
   inc(j)
           else
   begin
    if i<>k then
     for l:=1 to m+1 do
      begin
       aux:=a[i,l];
       a[i,l]:=a[k,l];
       a[k,l]:=aux
      end;
    for l:=j+1 to m+1 do
     a[i,l]:=a[i,l]/a[i,j];
    a[i,j]:=1;
    for u:=i+1 to n do
     begin
      for l:=j+1 to m+1 do
       a[u,l]:=a[u,l]-a[u,j]*a[i,l];
      a[u,j]:=0;
     end;
    inc(j);inc(i)
   end;
 end;
assign(f,'gauss.out');
i:=n+1;nupot:=false;
while (i>1)and(not nupot)do
 begin
  dec(i);
  j:=1;
  while (a[i,j]<eps)and(a[i,j]>-eps) do inc(j);
  if j>=m+1 then
             begin
              if a[i,m+1]<>0 then
               nupot:=true
             end
            else
   begin
    sol[j]:=a[i,m+1];
    for k:=j+1 to m do
     sol[j]:=sol[j]-a[i,k]*sol[k];
   end;
 end;
rewrite(f);
if not nupot then
 for i:=1 to m do
  write(f,sol[i]:10,' ')
             else
  writeln(f,'Imposibil');
close(f);
end.