program p20;
uses Crt;
label 1;
var
   pole: array [1..100] of integer;
  i,pom: integer;
  pocet: longint;

begin
  clrscr;
  write('Pocet cisel : ');readln(pocet);
  for i:=1 to pocet do
    begin write('Zadej c.',i,' : ');readln(pole[i]); end;
  1:for i:=1 to pocet-1 do
    if pole[i]>pole[i+1] then
      begin pom:=pole[i+1];pole[i+1]:=pole[i];pole[i]:=pom;goto 1;end;
  writeln('Serazene :');for i:=1 to pocet do writeln(pole[i]);
repeat until keypressed;
end.