[King Soft]

وعليكم السلام اخي

Program Fichier;
{$APPTYPE CONSOLE}
var A,B,R:File of integer;
 n,i,x,j,y,k:integer;
begin
Writeln('Taper Le nombre de Chifre =');
Read(n);
{Remplissage de Fichier A }
Assign(a,'C:\a.dll');
rewrite(a);
Write('Entre le Chifre de A :');
for i:=1 to n do
begin
Read(x);
Write(A,X);
end;
Close(a);
{Remplissage de Fichier b }
Assign(b,'C:\b.dll');
rewrite(b);
Write('Entre le Chifre de B :');
for i:=1 to n do
begin
Read(x);
Write(B,X);
end;
Close(b);
{ La Comparison Etle Remplissage de Fichier R  }
assign(R,'C:\R.dll');
Rewrite(R);
Reset(a);Reset(b);
k:=-1;
For i:= 1 to n do
    begin
    Read(A,x);
    Seek(B,0);
    for j:=1 to n do
        begin
        Read(B,y);
        if X=Y then
        begin
         k:=k+1;
         Write(R,Y);
        end;
   end; end;
{L'affichage de la Ruseltat }
Seek(R,0);
for i:=0 to k do
begin
read(R,x);
Write(x:6);
end;    
Close(a);Close(b);Close(R);
Readln;Readln; Readln;
end.

بالتوفيق