Составить программу, которая вычисляет сумму вводимых с клавиатуры чисел , выбирая из них только двузначные чтные отрицательные числа ( с циклом for и while).

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!Beginvar a:=ReadString('Введите числа').ToIntegers;var sum := 0;for var i:= 0 to a.Length - 1 doif (a[i] < -9)and(a[i] > -100)and(a[i].isEven)then inc(sum,a[i]);Writeln(sum);end.````````````С циклом while````````````// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!Beginvar a:=ReadString('Введите числа').ToIntegers;var sum := 0;var i:= 0;while i < a.Length - 1 do beginif (a[i] < -9)and(a[i] > -100)and(a[i].isEven)then inc(sum,a[i]);inc(i);end;Writeln(sum);end.

//C++#include <iostream>#include <cmath>using namespace std;int main(){ const int n = 10; int i, sum = 0; int mas[n]; for (i = 0; i < n; i++) {  cout << "mas[" << i << "] = "; cin >> mas[i];  if ((mas[i] > -100) && (mas[i] < -9) && (mas[i] % 2 == 0))  {   sum = sum + mas[i];  } } cout << "sum = " << sum; return 0;}//whilewhile(i < n) {  cout << "mas[" << i << "] = "; cin >> mas[i]; if ((mas[i] > -100) && (mas[i] < -9) && (mas[i] % 2 == 0))  {   sum = sum + mas[i];  }  i++; }P.S предварительно int i = 0; (!)