Объяснение:
Чет знакомое задание, вы случаем не студент?
program Summa;
var
i,t,n:integer;
S,P:real;
BEGIN
writeln('Введите последнее число последовательности n.');
readln(n);
S:=0;
t:=1;
for i:=1 to n do
begin
t := t*i;
writeln('!',i,'=',t);
S:=S+(1/t);
end;
writeln('Сумма=',S,'.');
end.
