Cod sursa(job #267048)
Utilizator | Data | 26 februarie 2009 17:50:18 | |
---|---|---|---|
Problema | A+B | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.22 kb |
program adunare;
var r,w:text;
a,b,s:longint;
begin
assign(r,'adunare.in');
assign(w,'adunare.out');
reset(r);
reset(w);
rewrite(w);
read(r,a);
read(r,b);
s:=a+b;
write(w,s);
close(r);
close(w);
end.