Program files;
Uses Crt;
Type massive=array[1..5,1..5] of Real;
Var  a,b:Massive;
    p:Real;
{====================}
Procedure OARF(Name:string; Var a:massive); {OARF-Open And Read File}
Var fl:Text;
   i,j:Integer;
Begin
    Assign(fl,name);
    Reset(fl);
    For i:=1 to 5 do
    For j:=1 to 5 do
    Read(fl,a[i,j]);
    Close(fl);
End;
{====================}
Procedure Check(a,b:Massive; Var p:Real);
Var i,j,k,l:Integer;
Begin
    For i:=1 to 5 do
    For j:=1 to 5 do
    For k:=1 to 5 do
    For l:=1 to 5 do
    if a[i,j]=b[k,l] then p:=a[i,j];
End;
{====================}
Begin
    ClrScr;
    OARF('f1.txt',a);       {' f1.txt '  -первый файл с массивом}
    OARF('f2.txt',b);       {' f2.txt '  -второй файл с массивом}
    Check(a,b,p);
    Writeln('Chislo ',p:0:2);
    ReadKey;
End.