Cod sursa(job #52937)
Utilizator | Data | 20 aprilie 2007 13:14:14 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.21 kb |
var a,b,c:longint;
fi,fo:text;
begin
assign(fi,'adunare.in'); reset(fi);
assign(fo,'adunare.out'); rewrite(fo);
readln(fi,a,b);
c:=a+b;
writeln(fo,c);
close(fi); close(fo);
end.