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