program ideone;
var
s1:string;
mas1,mas2,mas3: array [1..255] of string;
mas4,mas5: array [1..255] of shortint;
mas6: array [1..255] of real;
b,u:real;
i:shortint;
j,err,k,z,p,q:integer;
meetSpace:boolean;

begin
j:=1;

readln(s1);
meetSpace := false;
for i:=1 to length(s1) do
begin
  if s1[i]<>' ' then begin
    mas1[j]:=mas1[j]+s1[i];
    meetSpace := true
  end
  else begin
    if(meetSpace) then j:=j+1;
    meetSpace := false;
  end;
end;

err:=0;
j:=1;
k:=1;
for i:=1 to length(s1) do
begin
val(mas1[i],b,err);
if (err=0) then begin
    mas2[j]:=mas1[i];
    j:=j+1;

  end
else begin
  mas3[k]:=mas1[i];
  k:=k+1;
end;
end;

i:=1;

while mas3[i]<>'' do
begin
mas4[i]:=length(mas3[i]);
mas5[i]:=length(mas3[i]);
i:=i+1;
end;


p:=0;
for z:=1 to i-1 do
    for q:= 1 to i-z do
         if mas4[q] > mas4[q+1] then begin
                p := mas4[q];
                mas4[q] := mas4[q+1];
                mas4[q+1] := p;
            end;

for q:=1 to mas4[i] do
begin
  for z:=1 to k do
  begin
    if q>mas5[z] then write('  ')
    else write(mas3[z][q],' ')
  end;
  writeln;
 end;

for q:=1 to j do
begin
val(mas2[q],u,err);
mas6[q]:=u;
end;

for q := 1 to j do
        for z := 1 to j-q do
            if mas6[z] > mas6[z+1] then begin
                u := mas6[z];
                mas6[z] := mas6[z+1];
                mas6[z+1] := u;
            end;

writeln('самое маленькое число ',mas6[2]:2:2,' ');
writeln('длина самого короткого слова ',mas4[2]);
end.