Напишите программу на Паскале.вычислите произведение чисел от 1 до 100 кратных 3

vari, p:longint;beginp:=1;for i:=1 to 100 doif (i mod 3)=0 then p:=p*i;writeln('resuktat ',p)end.