RosettaCodeData/Task/Loops-For/Panoramic/loops-for.panoramic

dim x,y

for x=1 to 5

    for y=1 to x

    print "*";

    next y

print

next x