Вычислить произведение чисел от 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.