Вычислить 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.