program kaheksa;
{programm laseb sisestada kaheksa t„isarvu ning
 v„ljastab nad sorteeritult.}
var
 arv: array[1..8] of integer;
 i, j, min, abi: integer;

begin
 for i:=1 to 8 do
     readln(arv[i]);

 for i:=1 to 7 do
 begin
  min:=i;
   for j:=i to 8 do
      if arv[j]<arv[min] then min:=j;
  abi:=arv[i];
  arv[i]:=arv[min];
  arv[min]:=abi;
 end;

 writeln('Sorteeritult');
 for i:=1 to 8 do
     writeln(arv[i]);
end.