program sortirovka const 10 array of integer -2 -3 var max integer arr

program sortirovka;
const n=10;
a:array [1..n] of integer=(1,0,5,-2,6,4,-3,8,2,0);
var max,i,c,z:integer;
b:array [1..n] of integer;
begin
	for i:=1 to n do
		b[i]:=a[i];
	max:=b[1];
	for z:=1 to n-1 do
		for i:=1 to n-z do 
			if b[i] > b[i+1] then 
				begin 
					c:=b[i]; 
					b[i]:= b[i+1];
					b[i+1]:= c;
				end;
	for i:= 1 to n do
	writeln(' ',b[i]);
end.