Даны числа от 1 до n. Найти произведение чисел кратных 3 и оканчивающихся на 1.

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

program p31;var n, p, flag: integer;beginwriteln(\'Введите целое число\');readln(n);flag:= 0;//Если хотя бы одно число от 1 до n//удовлетворяет условиям,flag принимает значение 1p:= 1;for i: integer:= 1 to n dobeginif (i mod 10 = 1) and (i mod 3 = 0) thenbeginp:=p * i; flag:= 1; writeln(i);endend;p:=p * flag; writeln(\'Произведение равно \', p) end.