Даны две последовательности чисел, заданных случайным образом из отрезка [0, 60]. Найти все общие элементы этих последовательностей.
uses crt;
var a, b, c: set of 0..60;
x: 0..60; n, m, i: byte;
begin
clrscr;
a:=[];
write('Введите количество элементов первой последовательности: ');
readln(n);
writeln('Элементы первой последовательности: ');
for i:=1 to n do
begin
x:=random(60);
write(x:5);
a:=a + [x];
end;
writeln;
b:=[];
write('Введите количество элементов второй последовательности: ');
readln(m);
writeln('Элементы второй последовательности: ');
for i:=1 to m do
begin
x:=random(60);
write(x:5);
b:=b + [x];
end;
c:=a*b;
writeln;
if c = [] then write('Общих элементов нет.')
else
begin
writeln('Общие элементы: ');
for x:=0 to 60 do
if x in c then write(x:5);
end;
readkey
end.