program sort;
uses crt;
type
   arr_ = array[1..5] of integer;
var i, ii, temp :integer;
	numbArr :arr_;

	
begin
	Writeln('Write 5 number');
	
	for i := 1 to 5 do
		readln(numbArr[i]);
			
	Writeln('----sort max----');
	for i:= 1 to 5 do
		begin
			for ii := i to 5 do
				begin
					if numbArr[i] < numbArr[ii] then
						begin
							temp := numbArr[i];
							numbArr[i] := numbArr[ii];
							numbArr[ii] := temp;
						end;
				end;
			Writeln(numbArr[i]);
		end;

	Writeln('----sort min----');
	for i:= 1 to 5 do
		begin
			for ii := i to 5 do
				begin
					if numbArr[i] > numbArr[ii] then
						begin
							temp := numbArr[i];
							numbArr[i] := numbArr[ii];
							numbArr[ii] := temp;
						end;
				end;
			Writeln(numbArr[i]);
		end;

	readkey();
end.