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.