помогите пожалуйста Составить программу для вычисления суммы (произведения) по заданию преподавателя:
1. Найти произведение четных положительных чисел меньших 30.

program z1;var n,P:integer;beginP:=0;if ((n<30)and(n mod 2=0)) thenP:=n*(n-1);writeln('P='P);end.программу не прогонял,поэтому не уверен.