{$APPTYPE CONSOLE} var i,j,c,n:integer;f:text; a:array [1..1000] of integer; begin assign(f,'Tabl.dat');reset(f); readln(f,n); for i:=1 to n do read(f,a[i]); close(f); for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin c:=a[i];a[i]:=a[j];a[j]:=c;end; assign(f,'Tabl.sol');rewrite(f); for i:=1 to n do write(f,a[i],' '); close(f); end.