Cod sursa(job #2597)

Utilizator SorinelPetroianu 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.