Cod sursa(job #575836)

Utilizator razvanm2kMiklos Alexandru Razvan razvanm2k Data 8 aprilie 2011 19:39:47
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var a,b,s:integer;
   var f:text;
     begin

     assign(f,'adunare.in');
        reset(f);

        readln(f,a);

           readln(f,b);
         close(f);
      s:=a+b;



         assign(f,'adunare.out');
             rewrite(f);

write(f,a+b)               readln;
         close(f);
             end.