Cod sursa(job #1463002)

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