Cod sursa(job #272064)
| Utilizator |  bosnea slayer2k89 |
Data | 6 martie 2009 12:36:44 |
|---|---|---|---|
| Problema | A+B | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
program adunare;
type cif=0..2000000;
var
f,g:text;
a,b:^cif;
begin
assign (f,'adunare.in'); reset (f);
assign (g,'adunare.out'); rewrite (g);
new(a);
new (b);
readln (f,a^);
readln (f,b^);
writeln (g,a^+b^);
close (f);
close (g);
end.