program tehnarit84478;
var
K:integer;
i:integer;
N1,N2:integer;
a: array [1..10] of integer;
c: array [1..10] of integer;
Procedure Upor( N:integer; b: array [1..10] of integer; var k:integer);
var
i:integer;
begin
k:=1;
for i:=2 to N do
begin
if b[i-1]>b[i] then k:=0;
end;
end;
Procedure Noli( N:integer; var b: array [1..10] of integer);
var
i:integer;
begin
for i:=1 to N do
begin
b[i]:=0;
end;
end;
begin
writeln('Введите N (N<=10)');
readln(N1);
for i:=1 to N1 do begin write('a[',i,']=');readln(A[i]);end;
writeln('Введите N (N<=10)');
readln(N2);
for i:=1 to N2 do begin write('c[',i,']=');readln(c[i]);end;
Upor(N1,a,k);
if k=0 then Noli(N1,a);
Upor(N2,c,k);
if k=0 then Noli(N2,c);
writeln;
write('a[] ');
for i:=1 to N1 do write(a[i],' ');
writeln;
write('c[] ');
for i:=1 to N2 do write(c[i],' ');
end.