Cod sursa(job #2525690)

Utilizator NicuAndriesNicuAndries NicuAndries Data 17 ianuarie 2020 17:57:00
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
Program Adunare;
 var a,b : integer;
  f,f1 : text;

   begin
    assign(f,'adunare.txt');
     reset(f);
      readln(f,a);
     readln(f,b);
    close(f);

   assign(f1,'adunare1.txt');
    rewrite(f1);
     writeln(f1,a+b);
    close(f1);
   end.