% do-until loop test begin y := 0; do begin print y; y := y + 1; end until y; end