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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.