Определите назначение программки:var i,k,m,n: integer; An: real; begin write(039;Введите число039;);

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

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

и т.д.