Нужно построить орграф весовой матрицы, матрицу смежности, и определить самый короткий путь из пункта а в пункт в​

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.

Задание 2: Напишите интервью с известным казахстанским

спортсменом о том, как здоровый образ жизни в спортивных

достижениях. Используйте не менее 5 - ти количественных и

порядковых числительных в различных падежных формах, а также не

менее 5-ти местоимений разных разрядов.Задание 2: Напишите интервью с известным казахстанским

спортсменом о том, как здоровый образ жизни в спортивных

достижениях. Используйте не менее 5 - ти количественных и

порядковых числительных в различных падежных формах, а также не

менее 5-ти местоимений разных разрядов.

\