Cod sursa(job #178379)
Utilizator | Data | 14 aprilie 2008 14:47:50 | |
---|---|---|---|
Problema | A+B | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.19 kb |
VAR A,B:LONGINT;
F,G:TEXT;
BEGIN
ASSIGN(F,'ADUNARE.IN');
ASSIGN(G,'ADUNARE.OUT');
RESET(F);
REWRITE(G);
READLN(F,A);
READLN(F,B);
WRITELN(G,A+B);
CLOSE(F);
CLOSE(G);
END.