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.