Cod sursa(job #2302353)

Utilizator sclifos-tudor@mail.ruTudor Sclifos [email protected] Data 14 decembrie 2018 11:41:31
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
var f, g: text;
    a,b: real; 
 begin
  assign (f,'C:\PABCWork.NET\adunare.in.txt'); 
  reset (f); read(f,a); read(f,b);
  assign (g, 'C:\PABCWork.NET\adunare.out.txt');
 rewrite (g);
  write (g,a+b);
 close (f);
 close (g);
  end.