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

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.