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