Написать программу на языке Pascal используя операторы цикла. Задача: Задать случайным образом N [tex](1\leq N \leq 15).[/tex] Напечатать значение N! = 1*2*3*4*...*N

Program n1;varn, i: integer;p: real;beginrandomize;n:=random(15)+1;p := 1;for i := 2 to n dop := p * i;writeln(n, '! = ',p);end.