Помогите написать программу(Паскаль)
2. Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y = a x3 + b x2 + cx + d и значение аргумента, при котором оно получено. Значение х изменяется от 0 до 2 с шагом 0,2.

Var a,b,c,d,x,Min:real;BeginWriteLn('f(x) = ax^3 +bx^2 +cx +d');Write('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);Min:=0;x:=0;Repeatif Min*(a*Min*Min+b*Min+c) > x*(a*x*x+b*x+c) then Min:=x;x:=x+0.2;Until x>2;Write('d = ');ReadLn(d);WriteLn('Min(f) = f(',Min,') = ',Min*(a*Min*Min+b*Min+c)+d)End.Пример работы программы:f(x) = ax^3 +bx^2 +cx +da = 15b = -17c = -70d = 0Min(f) = f(1.6) = -94.08