Написать алгоритм вычислениянаписать алгоритм вычисления произведения…

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