Cod sursa(job #276069)

Utilizator DavideDavide Davide Data 10 martie 2009 20:28:59
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
var a,b,x:integer;
    f,g:text;

begin
     assign (f,'adunare.in');
     reset (f);
     readln (f,a);
     readln (f,b);
     close(f);
     assign (g,'adunare.out');
     reset (g);
     x:=a+b;
     write (g,x);
     close (g);
end.