while w&gt;y do begin