var a: array [1..5 , 1..3] of real;
i,j,k,n: integer;
min,zap, zap1:real;
begin
for i:=1 to 5 do begin;
for j:=1 to 3 do begin;
write ('input a[',i,',',j,']=');
readln (a[i,j]);
for i:=1 to 4 do
begin min:=a[i,2];
n:=i;
for j:=i+1 to 5 do
begin if a [j, 2] < min then
begin min:= a[j, 2];
n:=j;
end;
end;
write ('input a[',i,',',j,']=');
readln (a[i,j]);
for i:=2 to 4 do
begin min:=a[i,2];
n:=i;
for j:=i+2 to 5 do
begin if a [j, 2] < min then
begin min:= a[j, 2];
n:=j;
end;
end;
end;
for k:=1 to 3 do
begin zap:= a[i, k];
a[i, k]:=a [n,k];
a[n, k]:=zap;
end;
end;
for i:=1 to 5 do begin
for j:=1 to 3 do
write (a[i, j]: 4:1);
writeln;
end;
readln;
end;
end;
end.