Ввести N чисел, найти произведение чисел кратных 3

uses crt;
var n,i,a,k:integer;
    p:real;
begin
clrscr;
write('n=');
readln(n);
writeln('Введите ',n,' целых чисел');
{цикл while}
p:=1;
k:=0;
i:=1;
while i<=n do
 begin
  readln(a);
  if a mod 3=0 then
   begin
    k:=1;
    p:=p*a;
   end;
  inc(i);
 end;
if k=0 then writeln('Нет чисел кратных 3')
else writeln('Произведение чисел кратных 3=',p:0:0);
{цикл repeat}
p:=1;
k:=0;
i:=1;
repeat
  readln(a);
  if a mod 3=0 then
   begin
    k:=1;
    p:=p*a;
   end;
  inc(i);
until i>n;
if k=0 then writeln('Нет чисел кратных 3')
else writeln('Произведение чисел кратных 3=',p:0:0);
{цикл for}
p:=1;
k:=0;
for i:=1 to n do
 begin
  readln(a);
  if a mod 3=0 then
   begin
    k:=1;
    p:=p*a;
   end;
 end;
if k=0 then writeln('Нет чисел кратных 3')
else writeln('Произведение чисел кратных 3=',p:0:0);
readln
end.