Cod sursa(job #705159)

Utilizator BarbaraNemeth Barbara Barbara Data 3 martie 2012 15:04:34
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.2 kb
Raporteaza aceasta sursa 
var a, b: longint;
    f, g: text;
BEGIN
  Assign(f,'adunare.in');
  Reset(f);
  ReadLn(f,a);
  ReadLn(f,b);
  Assign(g,'adunare.out');
  ReWrite(g);
  WriteLn(g,a+b);
  Close(f);
  Close(g);
END.