Cod sursa(job #178379)

Utilizator dyzzy_dyzzyStanciulescu Daniel dyzzy_dyzzy 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.