Cod sursa(job #244229)

Utilizator madmanjonesJones the one madmanjones Data 14 ianuarie 2009 18:44:39
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.54 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.    
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.