Cod sursa(job #108968)

Utilizator sandu2508Grigoroi Alexandru sandu2508 Data 24 noiembrie 2007 11:50:55
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
program adunare;

var
a, b: longint;
f: text;

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