Дано целое число N(>0). Вывести сумму 2+1/(2!)+1/(3!)+1/(N!) — Pascal(Паскаль)

uses crt;
var s,t:real;
    n,i:integer;
begin
clrscr;
write('n=');
readln(n);
s:=2;
t:=1;
for i:=2 to n do
 begin
  t:=t/i;
  s:=s+t;
 end;
write('S=',s:0:8);
readln
end.