Определите назначение программы:

var i,k,m,n: integer; An: real;
begin
write('Введите число'); readln(n);
k:=1; m:=1;
for i:=1 to n do
begin k:=k*2; m:=m*i end;
An:=m*n/k;
writeln('An=', An);
end.

Окно вывода:
1
An=0.5

2
An=1

3
An=2.25

4
An=6

5
An=18.5

и т.д.

Программа вычисляет элементы ряда, который можно задать формулой общего члена следующей формулой:  An = (n*n!)/2^(n), где  2^(n) - это 2 в степени n.