Cod sursa(job #490989)

Utilizator crisjonycristi crisjony Data 9 octombrie 2010 10:08:36
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
var
        a,b,s:longint;
begin
        assign(f,'adunare.in');
        reset(f);
        read(f,a,b);
        close(f):
        assign(g,'adunare.out');
        rewrite(g);
        s:=a+b;
        write(g,s);
        close(g);
end.