Напишите программу. Увеличение значения переменной x в два раза.
Program;
var a: real;
Begin
Readln(a);
a:=a*2;
WriteLn(a);
end.