viết chương trình pascal: Đọc vào một dãy chứa các số 0 hoặc 1. Hãy kiểm tra dãy này có chứa các số 0 và 1 xen kẽ nhau không? Dữ liệu vào từ file văn bản NHAP.INP gồm dòng: -Dòng đầu chứa số nguyên n(1<=n<=20) -Dòng thứ hai chứa dãy số 0,1 các số trên cùng 1 dòng cách nhau bởi dấu cách kết quả:ghi ra file văn bản xuat.out chứa chữ "YES" nếu đó là dãy chứa các số 0 và 1 xen kẽ nhau, ngược lại ghi "NO"

#include <iostream>
#include <fstream>
using namespace std;
int main()
{
    ifstream inp("NHAP.INP");
    ofstream out("XUAT.OUT");
    int n;
    inp>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        inp>>arr[i];
    }
    if(arr[0]==0){
        for(int i=1;i<n;i++){
            if((i%2==1&&arr[i]!=1)||(i%2==0&&arr[i]!=0)){
                out<<"NO";
                inp.close();
                out.close();
                return 0;
            }
        }
    }
    if(arr[0]==1){
        for(int i=1;i<n;i++){
            if((i%2==1&&arr[i]!=0)||(i%2==0&&arr[i]!=1)){
                out<<"NO";
                inp.close();
                out.close();
                return 0;
            }
        }
    }
    out<<"YES";
    inp.close();
    out.close();
    //samon247
    return 0;
}