proc nonrec main() void:
    byte i,j;
    for i from 1 upto 5 do
        for j from 1 upto i do
            write("*")
        od;
        writeln()
    od
corp