Cod sursa(job #89646)

Utilizator 7RaduRadu Antohi 7Radu Data 7 octombrie 2007 13:29:46
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
program Adunare;
var
   Fl : text;
   a, b : longint;
begin
   Assign(Fl,'adunare.in');
   Reset(Fl);
   ReadLn(Fl,a);
   ReadLn(Fl,b);
   Close(Fl);

   Assign(Fl,'adunare.out');
   ReWrite(Fl);
   WriteLn(Fl,a+b);
   Close(Fl);
end.