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

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.