


program Number;
uses Crt;
Var
Num : Integer;
sum : Integer;
result : Integer;
begin
 clrscr;
 Num := 0;
 write('Simple Number Doubler');
 writeln; writeln;
 write('Enter One Number : ');
 readln(Num);
sum := (Num * 2);
result := sum;
 writeln;
 writeln;
 Write('The Answer Is ' ,result,'.');
 readln;
end.


