PROGRAM HelloWorld; BEGIN i := 0; REPEAT i := i + 1; write('#'); write(i); writeln(': Hello, world!') UNTL i = 5 END.