Var a,b:integer; begin write ('Number 1: '); readln(a); write ('Number 2: '); readln(b); writeln (a*2); writeln (b-10); readln; end.