RosettaCodeData/Task/Loops-For/Action-/loops-for.action

14 lines
114 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Proc Main()
byte I,J
For I=1 to 5
Do
For J=1 to I
Do
Print("*")
Od
PrintE("")
Od
Return