В последовательности вещественныхчисел подсчитать
произведение чисел, кратных 3- Pascal(Паскаль)

p:=1;
i:=1;
k:=0;
writeln('введите последовательность');
while i<=n do 
 begin
  readln(a);
  if a mod 3=0 then 
   begin
    k:=1;
    p:=p*a;
   end; 
  i:=i+1;
 end;
if k=0 then write('Таких чисел нет!') 
else write('Произведение=',p);
readln
end.