Написать алгоритм вычислениянаписать алгоритм вычисления произведения числового ряда и составить блок-схему: p=3*5*7**n

Program asd;
USES crt;
var a,n,p,i:integer;
BEGIN
Clrscr;
Writeln('Vvedite kol-vo ryada: ');
Readln(n);
p:=1;
For i:=1 to n do
begin
p:=p*i;
end;
Writeln('Proisvedenie ryada: ',p);
Readln;
END.