m:-prompt1(''),readln([A,B]),(A<0;format("~d
",A*B-A-B),m).