12 lines
206 B
Text
12 lines
206 B
Text
include "cowgol.coh";
|
|
|
|
var i: uint8 := 1;
|
|
while i <= 5 loop
|
|
var j: uint8 := 1;
|
|
while j <= i loop
|
|
print_char('*');
|
|
j := j + 1;
|
|
end loop;
|
|
print_nl();
|
|
i := i + 1;
|
|
end loop;
|