Посчитать количество элементов массива, кратных 2

var 
a:array[1..100] of integer;
n,i,g:integer;
begin
write('Введите размер массива: ');
readln(n);
for i:=1 to n do begin
a[i]:=random(20);
end;
writeln('Полученный массив: ');
for i:=1 to n do begin
write(a[i],' ');
end;
for i:=1 to n do begin
if (a[i] mod 2=0) then inc(g);
end;
writeln;
writeln;
write('Количество элементов кратных 2= ',g)
end.

uses crt;
var i,n :integer;
a: array [1..100] of integer;
begin
Read (n);
clrscr;
 For i:=1 to n do begin
  a[i]:=(i+1)*(i+1);
  Writeln (a[i]);
 end;
end.