Cod sursa(job #366346)
| Utilizator |  Codorean Bogdan Kenwood |
Data | 21 noiembrie 2009 16:23:41 |
|---|---|---|---|
| Problema | A+B | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
function adunare (a,b:integer):integer;
begin
adunare:=a+b;
end;
var a,b:integer;
r,w:text;
begin
assign(r,'adunare.in');
reset(r);
assign(w,'adunare.out');
rewrite(w);
readln(r,a,b);
write(w,adunare(a,b));
close(r);
close(w);
end.