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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.