Cod sursa(job #600882)
Utilizator | Data | 3 iulie 2011 23:47:27 | |
---|---|---|---|
Problema | A+B | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.2 kb |
var a,b,c:longint; F:text;
Begin
assign(F, 'adunare.in');
reset(F);
readln(F, a);
read(F, b);
close(F);
assign(F, 'adunare.out');
rewrite(F);
c:=a+b;
writeln(F, c);
readln;
end.