14 lines
162 B
Text
14 lines
162 B
Text
MODULE LoopFor;
|
|
IMPORT
|
|
Out;
|
|
VAR
|
|
i, j: INTEGER;
|
|
|
|
BEGIN
|
|
FOR i := 1 TO 5 DO
|
|
FOR j := 1 TO i DO
|
|
Out.Char('*');
|
|
END;
|
|
Out.Ln
|
|
END
|
|
END LoopFor.
|