Cod sursa(job #327617)

Utilizator radugabrieldinu radu radugabriel Data 29 iunie 2009 16:24:06
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
var a,b:integer;
F,G: Text;
begin
  Assign(F, 'adunare.in');

  Reset(F);
  Readln(F,a);
  Readln(F,b);
  Close(F);
  Assign(G, 'adunare.out');
  Rewrite(G);
  Reset(G);
Append(G);  Writeln(G,a+b);
  Close(G);
end.