Помогите паскаль!

[Kenzo73]

Помогите составить программу вычисление функций с использованием нестандартных функций и подпрограмм на free pascal y=m!*A(i,j)-n!*B(i,j).

[Stilet]

Ага. Написать код ввода массивов А и В самостоятельно сможешь?

[Kenzo73]

не получается у меня ((( никак(

[Stilet]

Плохо.
Вот тебе переменные:

var i,j,n,m:integer; a,b:array[1..10,1..10] of integer;

Вот ввод:

for i:=Low(a) to High(a) do begin
 for j:=Low(a[i]) to High(a[i]) do begin
  readln(a[i,j]);
 end; 
end; writeln;

Для В то же самое.

Вот функции факториала:

function fac(n:integer):Integer; 
begin Result:=1; while n>0 do begin Result:=Result*n; dec(n); end;

Соответственно формула:

y=fac(m)*A[i,j]-fac(n)*B[i,j]

Используй ее в циклах, таких же как и ввод.