begin for identifier k := number 2 to number 10 do begin identifier x := identifier k ; if identifier x = identifier k then identifier x := number 30 else identifier x := number 1 end end Parsing has succeeded