Язык Pascal ABC, вводятся два числа (n и k), выводится значение n!-k!

function F(n: longint): longint;

begin

 if n = 1 then f := 1

 else f := f(n - 1) * n;

end;

var

 n, k: longint;

begin

 readln(n, k);

 writeln(F(n) - F(k));

end.