Program Lab8_22; uses crt;

var k,n:integer;
     sum:real;

Function Fact(n:integer):real;
var f:real;
    i:integer;
Begin
F:=1;
for i:=1 to n do F:=F*i;
Fact:=F;
end;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Write(' Введите натуральное число: '); Readln(N);
Sum:=0;
for k:=1 to n do Sum:=Sum+(1/Fact(Sqr(K)));
Write('--------------------------------------------------------------------------------');
Writeln(' Ответ: ',Sum:8:5);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.