Cod sursa(job #420434)
Utilizator | Data | 19 martie 2010 01:49:37 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.26 kb |
Var f, g : text;
a, b : longint;
Begin
assign ( f, 'adunare.in' );
reset ( f );
assign ( g, 'adunare.out' );
rewrite ( g );
readln ( f, a );
readln ( f, b );
write ( g, a + b );
close ( f );
close ( g );
Readln
End.