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.