Cod sursa(job #2597)
Utilizator | Petroianu Marius Sorin Sorinel | Data | 18 decembrie 2006 06:28:50 |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.47 kb |
uses crt, dos;
var fin, fout:text;
a, b, c: longint;
begin
clrscr;
assign(fin,'adunare.in');
reset(fin);
assign(fout,'adunare.out');
rewrite(fout);
writeln('Citirea datelor din "Adunare.in"');
readln(fin, a);
readln(fin, b);
writeln('Efectuarea sumei');
c:=a+b;
if c>2000000000 then
writeln('Nu se poate face suma a depasit valoarea maxima')
else
writeln('Scrierea sumei in "Adunare.out"');
writeln(fout, c);
readln;
close(fin);
close(fout);
end.