Cod sursa(job #305461)

Utilizator adrian_nedeaNedea Adrian adrian_nedea Data 17 aprilie 2009 14:59:23
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
program AB;
var   x,y:text;
      a,s:integer;
begin
assign (x,'adunare.in');
assign (y,'aduncare.out');
reset (x); rewrite (y);
s:=0;
while not (eof (x)) do begin
        read (x,a);
        s:=s+a;
        end;
write (y,s);
close (x);
close (y);
end.