Cod sursa(job #22063)

Utilizator wickedmanCristian Strat wickedman Data 25 februarie 2007 15:30:04
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
program suma;
var
    f, g:text;
    a, b, s:integer;

begin
    assign(f,'adunare.in');
    reset(f);
    readln(f,a);
    readln(f,b);
    close(f);

    s := a + b;

    assign(g,'adunare.out');
    rewrite(g);
    writeln(g,s);
    close(g);
end.