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

Программа дополнительно выводит числа, кратные 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.