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

//Pascal ABC.NET v3.1 сборка 1172

Var
 n,k,i:integer;
 r:real;
begin
 readln(n);
 k:=1;
 for i:=1 to n+1 do
 k:=k*i;
 r:=1/k;
 writeln(r);
end.

Пример ввода:
1
Пример вывода:
0.5