Cod sursa(job #683437)
Utilizator | Data | 20 februarie 2012 17:43:59 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.24 kb |
var a,b:longint;fi,fo:text;
begin
assign(fi,'adunare.in');reset(fi);
readln(fi,a);
readln(fi,b);
close(fi);
assign(fo,'adunare.out');rewrite(fo);
writeln(fo,a+b);
close(fo);
end.