13 lines
114 B
Text
13 lines
114 B
Text
Proc Main()
|
|
byte I,J
|
|
|
|
For I=1 to 5
|
|
Do
|
|
For J=1 to I
|
|
Do
|
|
Print("*")
|
|
Od
|
|
PrintE("")
|
|
Od
|
|
|
|
Return
|