Дан одномерный массив 15 элементов, заполненный числами от 0 до 30 рандомно. Вывести все элементы массива в порядке возрастания и вывести на экран.

Program n1;const n = 15;var a:array[1..n] of integer;i,j,buf:integer;beginrandomize;writeln('исходный массив:');for i:=1 to n dobegina[i]:=random(31);write(a[i],' ');end;for i:=1 to n-1 do for j:=i+1 to n doif a[i]>a[j] then beginbuf:=a[i];a[i]:=a[j];a[j]:=buf;end;writeln;writeln('массив по возрастанию:');for i:=1 to n do write(a[i],' ');end.