program Use_LongNum;
uses LongNum, crt, strings;

var 
    f1, f2, f3, f4, t1, t2, t3: BFile;
        
begin
clrscr;
   assign(f1,'n1.num');
   assign(f2,'n2.num');
   assign(f3, 'sum.num');
   assign(f4, 'dif.num');

   writeln('Begin...');

   tempFile(t1);  
   tempFile(t2);  
   tempFile(t3);  

   fDec2Bin(f1, t1); 
   fDec2Bin(f2, t2); 
   
   writeln('Adding...');
   fAdd(t1, t2, t3);
   fReduce(t3);
   fBin2Dec(t3, f3);

   fNeg(t2, t3);
   fAdd(t1, t3, t2);
   fReduce(t2);
   fBin2Dec(t2, f4);

   writeln('Added!');
   readkey;
   erase(t1);
   erase(t2);
   erase(t3);
end.