Даны две последовательности а1, а2, ... аn и b1, b2 ... bm. (m

Const n = 100;

const m = 50;

var a:array[1 ... n] of integer;

b:array[1 ... n] of integer;

i, it, bo:integer;

begin

for i: = 1 to n do

a[i] : = trunc (Random (100));

for i: = 1 to m do

b[i] : = trunc (Random (100));

bo:=1;

for i:=1 to m do

if bo = 1 then

for it:=1 to n do

if b[i] a[it] then begin bo: = 0; break; end;

if bo = 1 then write ('Входят') else write ('Не входят');

end.

если я правильно понял задание то так