home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
mod2tutr.zip
/
EXAMPLES.ZIP
/
CH04E2.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
521b
|
41 lines
(* Chapter 4 - Programming exercise 2 *)
MODULE CH04E2;
FROM InOut IMPORT WriteString, WriteInt, WriteLn;
VAR Index : INTEGER;
BEGIN
FOR Index := 1 TO 12 DO
WriteInt(Index,5);
IF Index = 10 THEN
WriteString(" October is my birthday month");
END;
WriteLn;
END;
END CH04E2.
(* Result of execution
1
2
3
4
5
6
7
8
9
10 October is my birthday month
11
12
*)