СОСТАВИТЬ  программу на языке паскаль(СРОЧНО!)
a(a-1)(a-2)(a-3).....(a-n)

a =3, n=2, в ответе должно быть 3*2*1=6, выводит ноль

Второй тест a=5, n=2, должно быть 5*4*3=60, выводит 40 => пожаловаться не правильное решение.

var a,i,p,n:integer;beginwriteln ('Введите число a');readln (a);writeln ('Введите число n');readln (n);p:=a;for i:=1 to n-1 do begina:=a-i;p:=p*a;end;write ('Ответ: ',p);end.

вот верный вариант var a,i,p,n:integer;beginwriteln ('Введите число a');readln (a);writeln ('Введите число n');readln (n);p:=a;for i:=1 to n do beginp:=p*(a-i);end;write ('Ответ: ',p);end.

Последний вариант правильный, но этот парень, которому ты помог уже ушел в школу с не правильно решенной задачей.

готово....................