найти произведение всех чисел от 1 до 100 делещехся на 7 но не делещехся на 3с помощью цикла while или for

Var
   P:real;
   A:byte;
Begin
P:=1;
For A:= 1 to 100 do
    if (A mod 7 = 0)and(A mod 3 <> 0) then P:=P*A;
WriteLn('P = ',P);
End.