Помогите написать программу в паскале.
В заданном массиве найти количество чётных чисел. Вывести исходный массив и результат.

Вариант с вводом элементов:Program prog;uses crt;var a: array [0..999] of integer;    i, k, n: integer;beginclrscr;write('Размер массива n = ');readln(n);writeln;for i:=1 to n dobeginwrite('a[',i,'] = ');readln (a[i]);end;for i:=1 to n doif a[i] mod 2 = 0 then k:=k+1;writeln;writeln('Количество четных чисел k = ', k);end.Вариант с рандомными элементами:Program prog;uses crt;var a: array [0..999] of integer;    i, k, n: integer;beginclrscr;randomize;write('Размер массива n = ');readln(n);writeln;for i:=1 to n dobegina[i]:=random(100)-50;writeln('a[',i,'] = ',a[i]);end;for i:=1 to n doif a[i] mod 2 = 0 then k:=k+1;writeln;writeln('Количество четных чисел k =' , k);end.