15 lines
171 B
Text
15 lines
171 B
Text
|
MODULE For;
|
||
|
|
IMPORT InOut;
|
||
|
|
|
||
|
|
VAR
|
||
|
|
i, j: INTEGER;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
FOR i := 1 TO 5 DO
|
||
|
|
FOR j := 1 TO i DO
|
||
|
|
InOut.Write('*');
|
||
|
|
END;
|
||
|
|
InOut.WriteLn
|
||
|
|
END
|
||
|
|
END For.
|