Вычислить произведение чисел от 3 до 30 используя циклы for while

Var A:integer;
P:real;
Begin
P:=1;
For A:= 3 to 30 do
    P:=P*A;
WriteLn('P = ',p);
P:=1;
While A>=3 do
   Begin
   P:=P*A;
   A:=A-1
   End;
WriteLn('P = ',P);
End.