Cod sursa(job #140666)
Utilizator | Data | 22 februarie 2008 08:21:40 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.2 kb |
var f:text;
a,b,s:integer;
begin
assign (f,'adunare.in'); reset (f);
readln (f,a);
readln (f,b);
s:=a+b;
close (f);
assign (f,'adunare.out');
rewrite (f);
write (f,s);
close (f);
end.