$#hyn$
$uses crt;$
$var a,b : integer;$
$begin clrscr ;$
$assign(input,'Dulieu,doc');$
$assign(output,'Ketqua.txt');$
$reset(input); rewrite(output);$
$readln(input,a,b);$
$writeln(output,(a+b)*2);$
$writeln(output,a*b);$
$close(input);$
$close(output);$
$readln$
$end.$