Cod sursa(job #681928)
Utilizator | Data | 18 februarie 2012 10:48:48 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.19 kb |
Program adunare;
var a,b:text;
s,x,y:integer;
begin
assign(a,'adunare.in');
reset(a);
assign(b,'adunare.out');
rewrite(b);
read(a,x,y);
s:=x+y;
write(b,s);
close(a);close(b);
end.