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);  // вывод результатов(выполнение форумулы) readlnend.