Program Intersection_Tab;
Type vect = Array [1..99] of Integer;
Var T1, T2, inter : vect;
n, m : Integer;
(****************************************)
Procedure saisie_int (Var nf : Integer);
Begin
Repeat
Write ('N = ');
Readln (nf);
Until nf in [3..99];
End;
(****************************************)
Procedure remplir_tab (nf : Integer ; Var A:vect);
Var i, j : Integer;
Begin
Writeln ('Saisir la case 1');
Readln (a[1]);
For i:=2 To nf Do
Repeat
Writeln ('Saisir la case ', i);
Readln (A[i]);
j:=i-1;
While (j>1) and (A[i] <> A[j]) Do j:=j-1;
Until A[i]<>A[j];
End;
(****************************************)
Procedure intersection (nf : Integer ; A1, A2:vect; Var p : Integer ; Var B:vect);
Var i, j : Integer;
Begin
p:=0;
For i:=1 To nf Do
Begin
j:=0;
Repeat
j:=j+1;
Until (j=nf) Or (A1[i]=A2[j]);
If A1[i]=A2[j] Then
Begin
p:=p+1;
B[p]:=A1[i];
End;
End;
End;
(****************************************)
Procedure affiche_tab (nf : Integer ; A:vect);
Var i : Integer;
Begin
For i:=1 To nf Do Write (A[i], ' ');
End;
(****************** P.P. *********************)
Begin
saisie_int (n);
remplir_tab (n, T1);
remplir_tab( n, T2);
intersection (n, T1, T2, m, inter);
affiche_tab (n, T1);
Writeln ;
affiche_tab (n, T2);
Writeln ;
affiche_tab (m, inter);
End.

UHJvZ3JhbSBJbnRlcnNlY3Rpb25fVGFiOwpUeXBlIHZlY3QgPSBBcnJheSBbMS4uOTldIG9mIEludGVnZXI7ClZhciBUMSwgVDIsIGludGVyIDogdmVjdDsKbiwgbSA6IEludGVnZXI7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKQpQcm9jZWR1cmUgc2Fpc2llX2ludCAoVmFyIG5mIDogSW50ZWdlcik7CkJlZ2luClJlcGVhdApXcml0ZSAoJ04gPSAnKTsKUmVhZGxuIChuZik7ClVudGlsIG5mIGluIFszLi45OV07CkVuZDsKKCoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiopClByb2NlZHVyZSByZW1wbGlyX3RhYiAobmYgOiBJbnRlZ2VyIDsgVmFyIEE6dmVjdCk7ClZhciBpLCBqIDogSW50ZWdlcjsKQmVnaW4KV3JpdGVsbiAoJ1NhaXNpciBsYSBjYXNlIDEnKTsKUmVhZGxuIChhWzFdKTsKRm9yIGk6PTIgVG8gbmYgRG8KUmVwZWF0CldyaXRlbG4gKCdTYWlzaXIgbGEgY2FzZSAnLCBpKTsKUmVhZGxuIChBW2ldKTsKajo9aS0xOwpXaGlsZSAoaj4xKSBhbmQgKEFbaV0gPD4gQVtqXSkgRG8gajo9ai0xOwpVbnRpbCBBW2ldPD5BW2pdOwpFbmQ7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKQpQcm9jZWR1cmUgaW50ZXJzZWN0aW9uIChuZiA6IEludGVnZXIgOyBBMSwgQTI6dmVjdDsgVmFyIHAgOiBJbnRlZ2VyIDsgVmFyIEI6dmVjdCk7ClZhciBpLCBqIDogSW50ZWdlcjsKQmVnaW4KcDo9MDsKRm9yIGk6PTEgVG8gbmYgRG8KQmVnaW4Kajo9MDsKUmVwZWF0Cmo6PWorMTsKVW50aWwgKGo9bmYpIE9yIChBMVtpXT1BMltqXSk7CklmIEExW2ldPUEyW2pdIFRoZW4KQmVnaW4KcDo9cCsxOwpCW3BdOj1BMVtpXTsKRW5kOwpFbmQ7CkVuZDsKKCoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKiopClByb2NlZHVyZSBhZmZpY2hlX3RhYiAobmYgOiBJbnRlZ2VyIDsgQTp2ZWN0KTsKVmFyIGkgOiBJbnRlZ2VyOwpCZWdpbgpGb3IgaTo9MSBUbyBuZiBEbyBXcml0ZSAoQVtpXSwgJyAnKTsKRW5kOwooKioqKioqKioqKioqKioqKioqIFAuUC4gKioqKioqKioqKioqKioqKioqKioqKQpCZWdpbgpzYWlzaWVfaW50IChuKTsKcmVtcGxpcl90YWIgKG4sIFQxKTsKcmVtcGxpcl90YWIoIG4sIFQyKTsKaW50ZXJzZWN0aW9uIChuLCBUMSwgVDIsIG0sIGludGVyKTsKYWZmaWNoZV90YWIgKG4sIFQxKTsKV3JpdGVsbiA7CmFmZmljaGVfdGFiIChuLCBUMik7CldyaXRlbG4gOwphZmZpY2hlX3RhYiAobSwgaW50ZXIpOwpFbmQu

NAo2CjMKMgoxCjUKNgo3CjM=

4
6
3
2
1
5
6
7
3