X 1 while x 5 do begin