Cod sursa(job #108970)

Utilizator sandu2508Grigoroi Alexandru sandu2508 Data 24 noiembrie 2007 11:54:51
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
program adunare;

var
a, b, c: longint;
f: text;

begin
 assign (f, 'adunare.in');
 reset (f);
 readln (f, A);
 readln (f, b);
 close (f);
 c:= a+b;
 assign (f, 'adunare.out');
 rewrite(f);
 writeln(f, c);
 close(F);
end.