Люди!помогите!

подскажите!что тут не так?
Program l6_1;
type mas=array [1..15] of integer;
var P:mas;i,pr,k:integer;
begin
writeln ('vvedite 15 elementov massiva P');
for i:=1 to 15 do read(P);
writeln;
pr:=1;
k:=0;
for i:=1 to 15 do
if (P mod 2<>0) and ((Pmod 3)=0) then
begin
pr:=pr*P;
end;
for i:=1 to 15 do
k:=k+1;
writeln('proizvedenie nechetnih pr=',pr:6');
end:
writeln('kolichestvo kratnih 3 k=',k:4');
end.