home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
open
/
pascom.lzh
/
VISIBLE.ZIP
/
WORDS
< prev
Wrap
Text File
|
1985-08-08
|
512b
|
15 lines
PROGRAM WORDS; {this shows how to program the computer to write to the screen}
VAR
COUNT : INTEGER;
N : INTEGER;
BEGIN
WRITELN('this is the WORDS program;');
WRITELN('you can use it to learn about WRITELN statements.');
WRITE('type a number between 5 and 10 followed by <CR>:');
READLN(COUNT); {your turn to tell the program something}
FOR N := 1 TO COUNT DO
WRITELN('the value of N is:', N);
WRITELN('-------------all done now!-------------');
END.