program hhh;
uses crt;
const m=5; n=5;k=5;
var a:array[1..m] of integer;
b:array[1..n] of integer;
i,p,j:integer; r,s:integer;
BEGIN
randomize;
clrscr;
for i:=1 to m do begin
a[i]:=random(50)-25 ;
write(a[i]:7);
end;
writeln ;
for j:=1 to n do begin
b[j]:=random(50)-25 ;
write(b[j]:7);
end;
writeln ;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i]=b[j] then
writeln('a[i]= ',a[i]);
end;
end;
readln;
END.