Даны неотрицательные целые числа a, b найти F (m, n) = n!-m! / (n!+m) !. Опредилить вспомогательную функцию вычисляющую факториал.

program zz1;

var a, b:integer; / /задаем переменные целого типа

i:real;

function fact (x:integer) : integer;

var n, m:integer;

begin

m:=1;

for n:=1 to x do

begin

m:=m*n;

end;

fact:=m;

end;

begin

write (' введите первое число a '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число b '); / / вводим с клавиатуры второе число

read (b);

i:=fact (a) - fact (b) / fact (fact (a) + b); / / вычисляем ответ по заданной формуле с использованием функции вычисления факториала

write (' Полученный результат = ', i); / / выводим ответ

end.