F : = 1 начало да нет конец ввод N вывод F R : = 1 F : = F R R : = R + 1 R < N алг Факториал цел F, N, R ввод N нач кон вывод F нц кц пока R <= N, повторять F := 1 R := 1 F := F R R := R + 1 «N - факториал» F = N! = N «N - факториал» F = N! = N PROGRAM VAR READLN WRITE : INTEGER F, N, R () ; DOWHILE Words ; N ; END. () Введите число букв R <= N :=:= F1 BEGIN ; ; :=:= R1 ; :=:= F F * R :=:= RR + 1 ; END ; WRITELN( ) Из,N, букв можно составить,F, слов