Cod sursa(job #1463017)

Utilizator DavidLDavid Lauran DavidL Data 19 iulie 2015 17:22:12
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program adunare;
        var a,b,S:longint;
        adunin,adunout:text;
begin
        assign(adunin,'adunare.in');
        assign(adunout,'adunare.out');
        reset(adunin);rewrite(adunout);
        readln(a,b);
        S:=a+b;
        if(S<=2000000000)then
        writeln(adunout,S);
        close(adunin);
        close(adunout);
end.