Cod sursa(job #549614)

Utilizator ForkeySandoiu Fernando Forkey Data 8 martie 2011 20:06:42
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
program adunare;
var a,b,s:integer;
    f,g:text;
begin
    assign(f,'adunare.in');
    reset(f);
    assign(g,'adunare.out');
    rewrite(g);
    read(f,a,b);
    s:=a+b;
    writeln(g,s);
    close(f);close(g);
end.