Cod sursa(job #868559)
Utilizator | Data | 31 ianuarie 2013 11:26:16 | |
---|---|---|---|
Problema | A+B | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.18 kb |
var a,b:integer;
f,e:text;
begin
assign(f,'adunare.in')
assign(e,'adunare.out);
reset(f);
reset(e);
readln(f,a);
readln(f,b);
writeln(e,a+b);
close(f);
clode(e);
end.