14 lines
171 B
Text
14 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.
|