IF PAT==0 THEN R=180の部分で改行がなく、ELSEIFの段階で改行しているために1つのIF文として完結してますね… それによってELSEIFはIF N!=-1の方に適用されています、IF文の複数行ネストはTHENの次にも改行を入れましょう！