Cod sursa(job #505368)
Utilizator | Data | 1 decembrie 2010 22:17:02 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.2 kb |
var a,b,c:longint;
i,o:text;
begin
assign(i,'adunare.in');
reset(i);
readln(i,a);
readln(i,b);
close(i);
c:=a+b;
assign(o,'adunare.out');
rewrite(o);
writeln(o,c);
close(o);
end.