Даны неотрицательные целые числа a, b отыскать F(m,n) = 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( введите 1-ое число a );  // вводим с клавиатуры 1-ое число

read(a);  

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

read(b);

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

write( Приобретенный итог = , i); // выводим ответ

end.