решить задачи в Паскале

1. (Если честно, то непонятно, для какого количества чисел все-таки вычислять: для четырех или двух ? Я здесь сделал для четырех)

Program ArithmeticMean;

var a,b,c,d : integer;

begin

   readln(a,b,c,d);

   writeln((a+b+c+d)/4);

end.

2.

Program FindFactorial;

var a,b,c : integer;

function Fact(n : integer) : integer;

begin

 if (n = 0) or (n = 1) then

   Fact := 1

 else

   Fact := Fact(n - 1) * n;

end;

begin

   readln(a,b,c);

   writeln((Fact(a) - Fact(b)) * Fact(c));

end.