begin 
    real 
        y1,
        y2;
    y1 := y2 := 1;
    repeat :;
    if y1 > 0 then 
        go to stop go to repeat;
    stop :;
end