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

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.