в заданном одномерном массиве состоящем из n целых чисел подсчитать количество четных элементов. Элементы задаются генератором чисел. (напишете программу в паскале прошу. )Языкc++это если кому надо

#include <stdlib. h>

#include <time. h>

#include <iostream>

#include <iomanip>

using namespace std;

int main()

{

setlocale(LC_ALL, "Ukr");

srand(time(0));

int n;

int count;

cout << " Input n";

cin >> n;

int array[n];

for(int i=0;i<n;i++)

{

array[i]=rand()%30;

cout << setw(5) << array[i];

}

cout << endl;

for(int i=0;i<n;i++)

{

if(array[i] % 2 == 0)

{

count++;

cout << setw(5) << array[i];

//cout << " 4etnoe "<< count;

}

}

cout << " Colvo 4etnoe "<< count << endl;

return 0;

}