procedure bubblesort;
n = 20;
vett: array [1..20] of integer;
i,j,k,aux: integer;
aux := vett;
vett := vett[i+1];
vett[i+1] := aux;
writeln(vett);
end;