Написать программу, которая число считанное клавиатуры, увеличивает в два раза
Var n: integer; begin readln(n); n:=n*2; writeln(n); end.