PROGRAM Hello;

VAR
    i : integer;
    
BEGIN
    FOR i := 1 TO 5 DO 
        writeln(i, ' Hello, world!');
END.