Program InputInPascal; Var number:integer; begin write('Enter a number: '); readln(number); // Waiting for input and storing it inside variable "number" writeln('The double of the number entered is: ',number*2); End.