Помогите с программированием, пожалуйста.

// C++ (Извините, что не CSS, HTML, SVG)
// 1.
#include <iostream>
#include <vector>
using namespace std;
int main() {
unsigned n;
cin >> n;
vector<long> box(n);
for (auto i = 0U; i < n; ++i) cin >> box[i];
auto quantity = 0U;
for (auto i = 1U; i < n; ++i) if (~(box[i] + box[i - 1]) & 1) ++quantity;
cout << quantity << '\n';
system("pause");
}
// 2.
#include <iostream>
#include <vector>
#include <algorithm>
using namespace std;
unsigned sum(int x) {
if (x < 1) return 0;
if (x == 1) return x;
return ((x - 1) * x) >> 1;
}
int main() {
unsigned n;
cin >> n;
vector<long> box(n);
for (auto i = 0U; i < n; ++i) cin >> box[i];
auto is_odd = [](int x) { return x & 1; };
int odd = count_if(box.begin(), box.end(), is_odd);
int even = box.size() - odd;
auto quantity = sum(odd) + sum(even);
cout << quantity << '\n';
system("pause");
}

var
arr: array of integer;
i, j, m, count: integer;
begin
read(m);
setlength(arr, m);
for i := 0 to m - 1 do read(arr[i]);
{задание 1}
count := 0;
for i := 0 to m - 2 do inc(count, ord(not odd(arr[i] + arr[i + 1])));
writeln(count);
{задание 2}
count := 0;
for i := 0 to m - 2 do for j := i + 1 to m - 1 do inc(count, ord(not odd(arr[i] + arr[j])));
writeln(count)
end.

P.S. 4, 7 НЕ является парой с чётной суммой.

А какой язык, паскаль?)