Ce nu am facut bine?
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.