Cod sursa(job #164856)
Utilizator | Aldescu Bogdan bogdan005 | Data | 24 martie 2008 21:36:51 |
---|---|---|---|
Problema | A+B | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.47 kb |
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 1. var a,b:longint; \par
2. f:text; \par
3. begin \par
4. assign(f,'adunare.in'); reset(f); \par
5. readln(f,a); readln(f,b); \par
6. close(f); \par
7. assign(f,'adunare.out'); rewrite(f); \par
8. writeln(f,a+b); \par
9. close(f); \par
10. end. \par
}