Решите задачу по информатике​

Var a: array[0..9] of Integer;
i,n,nol,otr,nochet: Integer;
chet: Real;
begin
nochet:=1;
for i:=0 to 9 do
begin
writeln('Введите ',i+1,' число');
readln(n);
a[i]:=n;
end;
for i:=0 to 9 do
begin
if a[i]=0 then nol:=nol+1;
if a[i]>-4 then otr:=otr+1;
if i mod 2=0 then chet:=chet+1 else nochet:=nochet*a[i];
end;
chet:=chet/2;
writeln('Кол-во нулевых элементов: ',nol);
writeln('Сумма элементов, больше -4: ',otr);
writeln('Полу-сумма элементов с чётными индексами: ', chet);
writeln('Произведение нечётных элементов: ',chet);
end.

Вы не указали на каком языке программирования это написать, поэтому я выбрал на своё усмотрение - c++.

#include <iostream>
#include <windows.h>
#include <math.h>
using namespace std;
int main ()
{    
double a,b;
cout << "enter a: ";
cin >> a;
cout << "enter b: ";
cin >> b;
if( (a-b)*(a+b) > fabs(a*a-2*a*b+b*b))
{
cout << " bolshe raznost kvadratov";
return 0;
}    
else    
{        
cout << " bolshe modul kvadrata raznosti";        
return 0;    
}    
return 0;
}