وعليكم السلام اخي
كود:
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.
بالتوفيق