Cod sursa(job #602534)

Utilizator Andru_Andru Felipe Zuniga Andru_ Data 11 iulie 2011 19:41:54
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
program aplusb;
var
 n,s:longint;
 f,g:text;
begin
 assign(f,'adunare.in.txt');
 assign(g,'adunare.out.txt');
 reset(f);
 repeat
 read(f,n);
 s:=s+n;
 until eof(f);
 close(f);
 rewrite(g);
 if s>2000000000 then
  write(g,'Suma eronata!')
 else
  write(g,s);
 close(g);
end.