PROGRAM PROG4; {$U+ New Topics: Input using ReadLn statement Integer variables VAR Declarations } VAR Number : Integer; BEGIN Write('Enter a number (no decimals please): '); ReadLn(Number); WriteLn; { Display one blank line } WriteLn('Number: ',Number); { Display the number entered } END.