Cod sursa(job #181350)

Utilizator madmanjonesJones the one madmanjones Data 18 aprilie 2008 11:38:52
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
var a,b:longint;   
 f:text;   
   begin  
        assign(f,'adunare.in'); reset(f);   
        readln(f,a); readln(f,b);   
        close(f);   
        assign(f,'adunare.out'); rewrite(f);   
        writeln(f,a+b);   
        close(f);   
  end.