uses
crt;
var
A, B: array[1..100] of Integer;
i, j: Integer;
k: Bool;
begin
clrscr;
randomize;
for i:= 1 to 100 do
begin
A[i] := random(100);
B[i] := random(100);
end;
for i := 1 to 100 do
begin
k := false;
for j := 1 to 100 do
if A[i] = B[j] then
begin
k := true;
continue;
end;
if k = false then
write(" ", A[i]);
end;
writeln;
for i := 1 to 100 do
begin
k := false;
for j := 1 to 100 do
if B[i] = A[j] then
begin
k := true;
continue;
end;
if k = false then
write(" ", B[i]);
end;
readkey;
end.