program znanijatop; var i,n,ans:integer; begin writeln('Vvedite n'); readln(n); i:=0; ans:=1; while i<n do begin i:=i+1; ans:=ans*i; end; ans:=ans+2; writeln('result ',ans); end.
Var sum: LongInt; i,n: Integer; begin sum:=1; writeln('Введите n'); readln(n); for i:=1 to n do begin sum:=sum*i; end; writeln('(n!+2) = (',n,'!+2)=',sum+2); end.