Cod sursa(job #605505)
| Utilizator | Data | 29 iulie 2011 19:19:42 | |
|---|---|---|---|
| Problema | A+B | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.22 kb |
program ab;
var a,b,s:integer;
f1,f:text;
Begin
assign(f1,'adunare.in');reset(f1);
assign(f,'adunare.out');rewrite(f);
readln(f1,a);
readln(f1,b);
s:=a+b;
write(f,s);
close(f);close(f1);
end.