Cod sursa(job #1702312)

Utilizator ctrohinCristina Trohin ctrohin Data 14 mai 2016 23:10:18
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
 var f:text; a,b:longint;
   procedure citire;
     begin
     assign(f,'adunare.in');
     reset(f);
     readln(f,a);
     readln(f,b);
     close(f);
     end;
   procedure afisare;
     begin
     assign(f,'adunare.out');
     rewrite(f);
     writeln(f,a+b);
     close(f);
     end;
 begin
       citire;
       afisare;
end.