Составить программу, которая находит произведение однозначных чисел кратных 3

program raf105;

var i,pro: integer;

begin

pro:= 1;

for i:=1 to 9 do

 if (i mod 3)=0

   then pro:= pro * i;

writeln(pro);

end.