program metszetkepzes3; const maxhossz=10; n=8; m=6; type tomb = array [1..maxhossz] of integer; procedure beolvas(var t : tomb; hossz: byte; nev: char ); var i: integer; begin writeln('Kerem a(z) "', nev, '" tomb elemeit: '); for i:=1 to hossz do begin write(nev, '[',i,'] = '); readln(t[i]); end; end; procedure kiir(t : tomb; hossz: byte; nev: char ); var i: integer; begin write(nev+': '); for i:=1 to hossz do write(t[i]:3); writeln; end; function talal(t: tomb; hossz:byte; elem:integer):boolean; var i:integer; begin i:=1; while (i<=hossz) and (t[i] <> elem) do i:=i+1; talal:=i<=hossz; end; var i, k : integer; a,b,c: tomb; begin //foprogram beolvas(a, n, 'a'); beolvas(b, m, 'b'); kiir(a,n,'a'); kiir(b,m,'b'); k:=0; for i:=1 to n do begin if talal(b,m,a[i]) and not talal(c,k,a[i])then begin k:=k+1; c[k]:=a[i]; end; end; kiir(c, k,'c'); readln; end.