6 lines
93 B
Forth
6 lines
93 B
Forth
DO i = 1, 5
|
|
DO j = 1, i
|
|
WRITE(*, "(A)", ADVANCE="NO") "*"
|
|
END DO
|
|
WRITE(*,*)
|
|
END DO
|