Cod sursa(job #538836)
Utilizator | 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.