program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..100]of integer; i,j,c,n:integer; f1,f2:text; begin assign(f1,'tabel.txt'); reset(f1); assign(f2,'tabell.txt'); rewrite(f2); readln(f1,n); readln(f1,a[j]); for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c; end; for j:=1 to n do writeln(f2,a[j]); close(f1); close(f2); end.