if m > 2 then m := m - 3 else begin m := m + 9 y := y - 1 end