function p(k,n:integer):longin;
var i:integer;
begin
s:=1;
for i:=k to n do begin
if i mod 3<>0 then
s:=s*i;
endif;
p:=s;
end;
