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

Begin
var a:=ReadString('Введите числа').ToIntegers;
var sum := 0;
for var i:= 0 to a.Length - 1 do
if (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
// Внимание! Если программа не работает, обновите версию!

Begin
var a:=ReadString('Введите числа').ToIntegers;
var sum := 0;
var i:= 0;
while i < a.Length - 1 do begin
if (a[i] < -9)and(a[i] > -100)and(a[i].isEven)then inc(sum,a[i]);
inc(i);
end;
Writeln(sum);
end.