X=b! * (1/a квадрат) паскаль помогите сделать программу и как вы сделали объяснение

Var

f, b, a, i:longint; / / описание переменных

begin

write ('Write b, a: ');

readln (b, a); / / Присваивание b, a числа

f:=1; / / Присваивание f=1

for i:=1 to b do / / Нахождение b! (факториала)

f:=f*i;

writeln ('x = ', f * (1/sqr (a)) : 0:2); / / вывод результатов (выполнение форумулы)

readln

end.