{
        Assignment 1, Program 1
        Name: "number doubler"
        By: Ben Weir
}
program DoubleIt (input, output);

var
   num1,        {a number}
   result:      {that number * 2}
   integer;

begin
   Write('Enter a number please (-16383 to 16383): ');     {get a number}
   read(num1);
   result := num1 * 2;                                   {multiply it by 2}
   writeln(num1,' * 2 = ', result);                      {display result}
   write('Press enter');
   readln;
end.

    Source: geocities.com/siliconvalley/park/3889

               ( geocities.com/siliconvalley/park)                   ( geocities.com/siliconvalley)