aportación de pascal

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.
ALeonidou