
1. Screenshot Program
2. Source Code
program bubblesort;
uses crt;
var
i,n,j : integer;
a : array [1..10] of integer;
procedure urutkan;
var
z : integer;
begin
for i:=1 to n-1 do
...