Вычислить —n!
Program -for_6-
uses crt-
Var p:longint-
i, n:integer-
Begin
ClrScr-
Writeln(‘введите число ‘)-
Readln(n)-
p:=1-
For i:=1 to n do
p:=p*i-
Writeln(n, ‘!= ‘,p)-
Readln-
End.