Cod sursa(job #364813)

Utilizator lillaDoloczki Lilla lilla Data 16 noiembrie 2009 23:27:41
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
program ab;
var f:text;
    a,b,sum:longint;

begin
assign(f,'adunare.in');
reset(f);
readln(f,a);
readln(f,b);
close(f);

sum:=a+b;

assign(f,'adunare.out');
rewrite(f);
if sum<=2000000000 then writeln(f,sum)
else writeln(f,'Eroare');
close(f);
end.