Cod sursa(job #362838)

Utilizator iSeLastiSeLast iSeLast Data 11 noiembrie 2009 09:56:03
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
type suma=-maxlongint..2000000000;
var s:suma;
    a,b:longint;
    fin,fout:text;
begin
assign(fin,'adunare.in');
reset(fin);
assign(fout,'adunare.out');
rewrite(fout);
readln(fin,a);
readln(fin,b);
if (a+b<=2000000000) then s:=a+b else
    s:=2000000000;
write(fout,s);
close(fin);
close(fout);
end.