uses crt;
var
s:array[1..10] of integer;
i:integer;
x:integer;
tamam:boolean;
procedure degis(a,b:integer);
var
c:integer;
begin
clrscr;
c:=a; a:=b; b:=c;
end;
begin
writeln('Bir sayı giriniz:');
readln(x);
end;
for i:=1 to x do
begin
writeln(i,'. sayıyı giriniz:');
readln(s[i]);
end;
for i:=1 to x-1 do
repeat
begin
tamam:=true;
if s[i]>s[i+1] then
begin
writeln(s[i],s[i+1]);
tamam:=false;
end;
until tamam;
for i:=1 to x do
begin
writeln(s[i]);
end.