PROGRAM loop BEGIN STRING guess := "Guess a number: "; STRING correct := "Correct!\n"; STRING wrong := "Wrong!\n"; STRING out1 := "It took you "; STRING out2 := " guesses"; INT i; INT j; PROTO VOID main(); FUNCTION VOID main() BEGIN i := 17; j := 0; k := 0; DO WRITE(guess); READ(j); k := k + 1; IF (i = j) WRITE(correct); ELSIF (TRUE) WRITE(wrong); ENDIF WHILE (i != j); WRITE (out1, k, out2); END END