Определить в массиве произведение остатков от деления на 4 тех элементов, которые не кратны четырем

uses crt;
const n=13;
var a:array[1..n] of integer;
    i,p,k:integer;
begin
clrscr;
writeln('Введите элементы масива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Полученный массив');
p:=1;
k:=0;
for i:=1 to n do
 begin
  write(a[i],' ');
  if a[i] mod 4<>0 then
   begin
    p:=p*(a[i] mod 4);
    k:=1;
   end;
 end;
writeln;
if k=0 then write('Все элементы кратны 4')
else write('Произведение остатков элементов, не кратных 4 от деления на 4=',p);
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    n,i:integer;
begin
clrscr;
repeat
write('Размер массива от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, целые числа, в том числе 0 и 1');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Измененный массив');
for i:=1 to n do
 begin
  if a[i]=0 then a[i]:=1
  else if a[i]=1 then a[i]:=0;
  write(a[i],' ');
 end;
readln
end.