Составить в Turbo...

Составить в Turbo Pascal программу, используя пользовательские функции. Сама программа должна быть как можно меньше, соответственно, раздел описанияфункций больше.

 

function Fact(n:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 2 to n do
    rez := rez * i;
  Fact := rez;
end;
 
function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := a * rez;
  Pow := rez;
end;
 
var
  a, b, n, i:integer;
  F:real;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  write('n = '); readln(n);
  F := 0;
  for i := 1 to n do
    F := F + Fact(n - i + 1)/(Pow(a,i) - Pow(b, i));
  writeln('F = ', F);
end.