type
TUrut = array[1..100] of integer;

procedure urutkan(A:TUrut; var B:TUrut; N:integer);
var
j,k,temp:integer;
begin
for j:=1 to N-1 do begin
for k:=N to j+1 do begin
if A[k] < A[k-1] then begin
temp:=A[k];
A[k]:=A[k-1];
A[k-1]:=temp;
end;
end;
end;
for j:=1 to N do
B[j]:=A[j];
end;

var
arr1,arr2:TUrut;
i,count:integer;

begin
write('Masukan jumlah data yang akan di masukan : '); readln(count);
for i:=1 to count do begin
write('Data ke',i,' = '); readln(arr1[i]);
end;

urutkan(arr1, arr2, count);

writeln('Data yang telah di urutkan : ');
writeln;
for i:=1 to count do begin
writeln(arr2[i]);
end;
readln;
end.