Дано естественное число n. Вычислить a(a-n)(a-2n)...(a-nn)

Это информатика? Тогда нужна программка либо блок-схема? Как следует, если дано n, обязано быть дано и a

это програма. а не дано

Превосходный ответ. Свидетельствующий о глубочайшем недопонимании вопроса. Означает, не договоримся...

кратче,необходимо написать прогу,переменные не даны.вероятно,следует осуществить их ввод...

Вы обратились на ресурс, где находятся не только детишки, но и взрослые люди, решающие задачки. Поэтому оставьте свои "инфа", "прога" и т.п. для общения с одинаковыми для себя по возрасту.

Взрослый человек,я использую абривиатуры и сокращения из-за недостатка времени,не стоит так вызывающе себя весьти,советую поработать над самооценкой

Это было заключительнее из заданий, которое я для Вас сделал. У Вас "нехватка медли" дописать нормально слово, но хватает его на то, чтоб учить иных в том, чему Для вас самому еще обучаться и обучаться.

Var
  a, n, p: longint;
  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.

Тестовое решение:

Введите через пробел a и n: 3 7
Произведение равно 884932096