Даны числа от 1 до n. Отыскать творение чисел кратных 3

Программа дополнительно выводит числа, кратные 3 и заканчивающиеся на 1.

program p31;
var n, p, flag: integer;
begin
writeln(Введите целое число);
readln(n);
flag:= 0;
//Если желая бы одно число от 1 до n
//удовлетворяет условиям,flag воспринимает значение 1
p:= 1;
for i: integer:= 1 to n do
begin
if (i mod 10 = 1) and (i mod 3 = 0) then
begin
p:=p * i; flag:= 1; writeln(i);
end
end;
p:=p * flag;
writeln(Творение одинаково , p) 
end.