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

Var A:integer;P:real;BeginP:=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.