RosettaCodeData/Task/Loops-For/HicEst/loops-for.hicest
2023-07-01 13:44:08 -04:00

6 lines
76 B
Text

DO i = 1, 5
DO j = 1, i
WRITE(APPend) "*"
ENDDO
WRITE() ' '
ENDDO