Pagini recente » Cod sursa (job #2811280) | Cod sursa (job #1373204) | Cod sursa (job #2218988) | Cod sursa (job #2189035) | Cod sursa (job #2597)
Cod sursa(job #2597)
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.