Вычислить выражение для заданных n, x - Pascal ABC

Формулировка задачи:

Вычислить выражение для заданных n, x:

Решение задачи: «Вычислить выражение для заданных n, x»

Листинг программы

var  x,n,i,k: integer;
      y: real;
function fact(n: integer): integer;
 var f:integer;
begin
f:=1;
for i:=2 to n do
f:= f*i;
Fact:=f;
end;
begin
read(x);
readln(n);
for k:=1 to n do
 y:=y+power(x,k)*fact(k)*fact(n-k)/fact(n);
 writeln('y= ',y);
end.

Объяснение кода листинга программы

Создается переменная x типа integer (целое число) и присваивается ей значение, считываемое с клавиатуры.
Создается переменная n типа integer и присваивается ей значение, считываемое с клавиатуры.
Создается переменная i типа integer и присваивается ей значение 2.
Создается переменная k типа integer и присваивается ей значение 1.
В цикле for происходит вычисление выражения power(x,k)*fact(k)*fact(n-k)/fact(n) и результат сохраняется в переменной y.
Выводится значение переменной y на экран.
Цикл for завершается.
Программа завершается.