вычисление задачки

[Shustic]

Здраствуйте, помогите пожайлусто дурёхе с задачей, поставили на специальности менеджмент предмет ОКТ, а я в этом полная 0... без задачки к сессии не допустят(
"Скласти паскаль програму, яка обчислює значення виразу, використовуючи підпрограму-функцію" ссылочка на фото, зарание спасибки
если невидно:
g = числитель: 4,5a! + 17,4b!
знаменатель: 0,2x!

[Jaguar83]

Эх, дурёха...

var g: Real;
     a,b,x: Integer;

function Factorial(n: Integer): Cardinal;
var i,f: Integer;
begin
f:=1;
for i:=1 to n do
  f:= f*i;
Factorial:=f;
end;

begin
  Writeln('Vvedite ishodnie dannie: ');
  Write('a = '); Readln(a);
  Write('b = '); Readln(b);
  Write('x = '); Readln(x);
  g:= (4.5*Factorial(a) + 17.4*Factorial(b))/(0.2*Factorial(x));
  Writeln('Otvet: g = ',g:8:2);
  Readln;
end.