Дано действительное число х, натуральное число n. Вычислить:x (x - n) (x - 2 n) (x - 3 n) ... (x - n2)

program zz1;

var a, x:real; / / задаем переменные действительного типа

n, i:integer; / / задаем переменную целого типа

begin

write (' введите заданное действительное число x '); / / вводим действительное число с клавиатуры

read (x);

write (' введите заданное натуральное число n '); / / вводим натуральное число с клавиатуры

read (n);

a: = x;

for i:=1 to n do / / организуем цикл на n повторений

a:=a * (x - i * n); / / вычисляем ответ по заданной формуле

write (' Полученный ответ = ', a); / / выводим ответ

end.