home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
ENTERPRS
/
CPM
/
UTILS
/
S
/
TPTUTOR1.ARC
/
PROG4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-05-27
|
388b
|
19 lines
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.