Язык pascal ABC Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на

var   sum, i, x : integer;              // объявляем переменные целочисленного типа.   arr : array [1..5] of integer; // объявляем массив.Begin    writeln(\'Введите 5 целых чисел для заполнения массива:\'); // вывод строки на экран.       for i:= 1 to 5 do        // начало цикла.        begin           readln(arr[i]);    // заполняем элемент массива.           if ((arr[i] mod 10 = 6) and (arr[i] mod 4 = 0)) then // если элемент оканчивается на 6 и                                                                                         // делится на 4.               begin                     sum := sum + arr[i];                // считаем сумму элементов.                    x := x + 1;                             // считаем количество элементов.               end;         end;    if (x = 0) then

        writeln(\'Элементов кратных 4 и оканчивающихся на 6 в массиве нет.\')    else 

        writeln(\'Сумма элементов кратных 4 и оканчивающихся на 6 равна: \', sum);End.