program PascalGuru;
uses crt;
label 1;
 
procedure exchange(var a,b:real);
var c:real;
begin
c:=a; a:=b; b:=c; end;
 
 
var A,B,C:array[1..50] of real;
    i,j,k,n,n1,n2:integer;
 
 
begin
write('Vvedite razmer VOZRASTAYUSCHEGO massiva: '); readln(n1);
 
writeln('Vvedite el-ty massiva:');
for i:=1 to n1 do
    begin
    write(i,': ');
    readln(A[i]);
    end;
 
write('Vvedite razmer NEvozrastayuschego massiva: '); readln(n2);
 
writeln('Vvedite el-ty massiva:');
for i:=1 to n2 do
    begin
    write(i,': ');
    readln(B[i]);
    end;
 
writeln;writeln('VOZRASTAYUSCHIY massiv:');
for i:=1 to n1 do write(A[i]:8:2);
 
writeln;writeln;
writeln('NEvozrastayuschiy massiv:');
for i:=1 to n2 do write(B[i]:8:2);
 
k:=n1;
for i:=1 to n1 do C[i]:=A[i];
for i:=1 to n2 do
    begin
    inc(k);
    C[k]:=B[i];
    end;
 
1:
for i:=2 to k do
    if C[i-1]>C[i] then begin exchange(C[i-1],C[i]); goto 1;   end;
 
writeln;writeln;
writeln('Rezulitiruyuschii massiv:');
for i:=1 to k do write(C[i]:8:2);
 
 
readln;
end.