Pagini recente » Cod sursa (job #2607410) | Cod sursa (job #1974386) | Cod sursa (job #2118176) | Cod sursa (job #2228695) | Cod sursa (job #2602)
Cod sursa(job #2602)
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.