Viết chương trình nhập vào mảng một chiều không quá 100 phần tử kiểu nguyên. Tính và in ra màn hình tổng các phần tử nguyên âm chẵn

Code(C++):

#include<iostream>
using namespace std;

int main()
{
    int a[100], n, tong = 0;
    cin >> n;
    for(int i = 1; i <= n; i++)
    cin >> a[i];
    for(int i = 1; i <= n; i++)
    if(a[i] < 0 && a[i] % 2 == 0) tong += a[i];
    cout << tong;
    return 0;
}

program bai_giai;

uses crt;

var a:array[1..100]of longint;s,i,n:longint;

begin

clrscr;

write('nhap n:');readln(n);

s:=0;

for i:=1 to n do 

begin

write('nhap a[',i,']=');readln(n);

if(a[i]<0)and(a[i] mod 2=0)Then s:=s+a[i];

end;

write('s=',s);

readln;

end.