Pascal. для функции y=x (x-1) ^2 (x-2) ^3 записать в массив В значение аргумента х на интервале [-0,3; 0,5] и найти минимум этой функции и соответствующее значение аргумента

program zz1;

const n = 9; / / задаем количество элементов в массиве

var i:integer; / / задаем переменные целого типа

x, k, min:real;

y:array [1 ... n] of real;

begin

min:=100000; / / задаем начальное значение для минимума функции

x:=-0.3; / / задаем начальное значение для аргумента функции

while x < = 0.5 do

begin

i:=i + 1;

y[i]:=x * sqr (x - 1) * (sqr (x - 2) * (x - 2));

x:=x + 0.1;

if y[i] < min then begin min:=y[i]; k:=x; end;

end;

write (' минимум функции = ', min, ' значение аргумента функции = ', k);

end.