В массиве из 20 элементов заполненном целыми числами из интервала [10; 100] найти количество четных чисел оканчивающихся на цифру 4. Паскаль.

program arr;

var a: array [1 ... 20] of integer;

n: integer; / / число элементов, оканчивающихся на цифру 4

begin

n:=0;

writeln ('Печать массива');

for var i:=1 to 20 do

begin

a[i] : = Random (90) + 10; / /случайное число в диапазоне 10 ... 100

if (a[i] mod 10) = 4 then n:=n+1; / /подсчет числа элементов,

//оканчивающихся на 4

write (a[i],' '); / / печать элементов массива

end;

writeln ();

writeln ('Число элементов массива, оканчивающихся на цифру 4 - ', n);

end.