7 lines
110 B
Text
7 lines
110 B
Text
PROC main()
|
|
DEF i, j
|
|
FOR i := 1 TO 5
|
|
FOR j := 1 TO i DO WriteF('*')
|
|
WriteF('\n')
|
|
ENDFOR
|
|
ENDPROC
|