Cod sursa(job #178462)

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