RosettaCodeData/Task/Loops-For/Modula-3/loops-for.mod3

13 lines
154 B
Plaintext

MODULE Stars EXPORTS Main;
IMPORT IO;
BEGIN
FOR i := 1 TO 5 DO
FOR j := 1 TO i DO
IO.Put("*");
END;
IO.Put("\n");
END;
END Stars.