viết ct nhập vào một mảng a gồm n số nguyên xuất ra màn hình các số chẵn, lẻ và tính tổng của chúng (viết theo chương trình con nhé!)

#include<bits/stdc++.h>
using namespace std;
void nhapmang(int *a, int &n)
{
    for (int i = 0; i<n; i++)
    {
        cout << "a[" << i << "]=";
        cin >> *(a + i);
    }
}
void le(int *a,int &n)
{
    int total=0;
    cout<<"Cac so le: ";
    for(int i=0;i<n;i++){
        if(a[i]%2==1){
            cout<<a[i]<<" ";
            total+=a[i];
        }
    }
    cout<<"\nTong cua chung: "<<total<<endl;
}
void chan(int *a,int &n)
{
    int total=0;
    cout<<"Cac so chan: ";
    for(int i=0;i<n;i++){
        if(a[i]%2==0){
            cout<<a[i]<<" ";
            total+=a[i];
        }
    }
    cout<<"\nTong cua chung: "<<total;
}
int main()
{
    int n;
    cin>>n;
    int arr[n];
    nhapmang(arr,n);
    le(arr,n);
    chan(arr,n);
    //samon247
    return 0;
}

uses crt;
var n,i,d,d1 : integer;
a : array[1..100] of longint;
begin
write('Nhap n :'); readln(n);
d:=0; d1:=0;
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2 =0  then write('So chan la :', a[i]) else write('So le la :',a[i]);
for i:=1 to n do if a[i] mod 2 = 0 then d:=d+a[i] else d1:=d1+a[i];
write('Tong le :', d1,'tong chan :',d);
readln
end.