RosettaCodeData/Task/Loops-For/ALGOL-W/loops-for.alg

begin
    for i := 1 until 5 do
    begin
        write( "*" );
        for j := 2 until i do
        begin
            writeon( "*" )
        end j
    end i
end.