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

var n,i,p:integer; begin write('n = '); readln(n); p:=1; for i:=1 to n do if (i mod 3 = 0)and(i mod 10 = 1) then p:=p*i; writeln('p = ',p); end. Пример: n = 80 p = 1071