Cod sursa(job #197922)

Utilizator gab12gabi vlad gab12 Data 7 iulie 2008 10:18:25
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
 program problema1;
 var a,b:longint;
     f,g:text;
 begin
   assign(f,'adunare.in');
   assign(g,'adunare.out');
   reset(f);
   rewrite(g);
   b:=0;
   while not eof(f) do
     begin
        read(f,a);
        b:=b+a
    end;
   write(g,b);
   close(f);
   close(g);
   readln;
   end.