Program BTH; var a,b,c:longint; t:text; Procedure init; Begin assign(t,'tinht.inp');reset(t); readln(t,a,b); close(t); end; procedure timize; begin c:=a+b; end; Procedure print; begin assign(t,'tinht.out');rewrite(t); write(t,c); close(t); end; begin init; timize; print; end.
