Cod sursa(job #75636)

Utilizator tebanadrianteban adrian tebanadrian Data 4 august 2007 15:19:59
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.42 kb
 program adunare;
 var a,b:integer;
 procedure citire;
 var f:text;
 begin
 assign(f,'adunare.in');
 reset(f);
 readln(f,a);
 readln(f,b);
 close(f);
 end;
 function adunarea(a,b:integer):longint;
 var s:longint;
 begin
 s:=a+b;
 adunarea:=s;
 end;
 procedure afisare;
 var f:text;
 begin
 assign(f,'adunare.out');
 rewrite(f);
 write(f,adunarea(a,b));
 close(f);
 end;
 begin
 citire;
 afisare;
 end.