Cod sursa(job #2302350)

Utilizator sclifos-tudor@mail.ruTudor Sclifos [email protected] Data 14 decembrie 2018 11:37:05
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 (a); readln (b);
  assign (g, 'C:\PABCWork.NET\adunare.out.txt');
 rewrite (g);
  write (g,a+b);
 close (f);
 close (g);
  end.