Cod sursa(job #265017)
| Utilizator | Data | 23 februarie 2009 09:29:36 | |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.2 kb |
var A, B : longint;
fi, fo : text;
begin
assign(fi,'adunare.in'); reset(fi);
assign(fo,'adunare.out'); rewrite(fo);
read(fi, A, B);
writeln(A + B);
close(fi);
close(fo);
End.