напишите программу, которая выводит на экран значение n! включая следующую функцию function factorial (n:integer):integer; var p,i:integer; begin p:=1; for i:=1 to n do p:=p*i; factorial:=p; end;

var n:integer;      ch:char;function factorial (n:integer):longint;   var p,i:integer;   begin     p:=1;     for i:=1 to n do p:=p*i;     factorial:=p; end;begin    write ('N = ');    readln (n);    writeln ('Factorial: ',factorial(n));    readln;end.