program Bevardë2;
type mas=array [1..20] of integer;
var min,i,j,n,isim:integer;
    a:mas;
begin
  WriteLn('kiek prekiu');
  readln(n);
  writeln('kokios kainos');
  for i:=1 to n do
   read(a[i]);
  for i:=1 to n-1 do
   for j:=1 to n-1 do
    if a[j]>a[j+1]
     then begin
      isim:=a[j+1];
      a[j+1]:=a[j];
      a[j]:=isim;
     end;
  writeln('prekiu kainos: ');
  for i:=1 to n do
   write(a[i],' ');
  Readln;
  readln;
end.