Cod sursa(job #108965)

Utilizator sandu2508Grigoroi Alexandru sandu2508 Data 24 noiembrie 2007 11:48:40
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
Raporteaza aceasta sursa 
program adunare;

var
a, b: longint;
f: text;

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