Вычислить 1/(n+1)! составить программу. паскаль

program virazhenye_factorial;

var n, fact, ik: integer;

otv: real;

begin

writeln(\'Введите число, из которого необходимо высчитать факториал: \');

readln(n);

while ikk < (n+1) do begin

ik:=ik+1;

fact:=fact*ik;

end;

otv:=1/fact;

writeln(\'Ответ: \', otv);

end.