Cod sursa(job #133984)

Utilizator alexandra17farcas alexandra alexandra17 Data 10 februarie 2008 10:46:31
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
program aplusb;
var a,b:integer;
f:text;
begin
   assign(f,'suma.in');
   reset(f);
   readln(f,a);
   close(f);
   assign(f,'suma.in');
   reset(f);
   readln(f,b);
   close(f);
   assign(f,'suma.out');
   rewrite(f);
   write(f,a+b);
   close(f);
end.