Question

Язык pascalABC. ПОМОГИТЕ!

Answer 1

Ответ:

program name;

var a, n, p, i: integer;

begin

 write('Введите a и n: ');

 readln(a,n);

 p := a;

 for i := 1 to n do

     p := p*(a - i*n);

 writeln(p);

end.