Cod sursa(job #538836)

Utilizator paulborzaBorza Paul paulborza Data 21 februarie 2011 22:36:50
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
program adunare;
var f1,f2:text;
    a,b,sum:longint;

begin
 assign (f1,'adunare.in');
 reset (f1);
 assign (f2,'adunare.out');
 rewrite (f2);
 readln (f1,a);
 read (f1,b);
 sum:=a+b;
 write (f2,sum);
 close (f1);
 close (f2);
end.