Вывести номера элементов, кратных 4

program mas;
const
   n = 5;
type
   mas = array[1..n] of integer;
var
   a: mas;
   i: byte;
begin
   writeln('введите элементы массива');
   for i:=1 to n do readln(a[i]);
for i=1 to n do 
begin
if a[i] mod 4 = 0 then writeln(a[i]);
end;
end.

program mas;
const
n = 5;
type
mas = array[1..n] of integer;
var
a: mas;
i: byte;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);
for i=1 to n do 
begin
if a[i] mod 4 = 0 then 
begin
writeln(i);
writeln;
end;
end;
end.

const
  n=25;
 
var
  a:array [1..n] of integer;
  i:byte;
 
begin
  randomize;
  writeln('массив : ');
  for i:=1 to n do begin
    a[i]:=random(100)+1;
    write(a[i],' ');
  end;
  writeln;
  writeln('номера элементов кратных 4 :');
  for i:=1 to n do
    if a[i] mod 4=0 then
      write(i,' ');
  readln;
end.