Написать программу нахождения Ymax , если задана функция:
Y = Х2 – 100Х + 10, где Х изменяется от Хнач. до Хкон. с шагом С. Программа должна так же выводить и значение Х, при котором Y принимает максимальное значение.
Значения Хнач., Хкон. и С должны задаваться пользователем при выполнении программы. Для организации цикла воспользуйтесь оператором While.

var x0,xn,c:real;x,y,xmax,ymax:real;beginwriteln('Xнач, Xкон:'); readln(x0,xn);write('С = '); readln(c);x:=x0;xmax:=x; ymax:=x*x-100*x+10;while x<xn do begin x:=x+c; y:=x*x-100*x+10; if y>ymax then begin xmax:=x; ymax:=y; end; end;writeln('xmax = ',xmax,'  ymax = ',ymax);end.Пример:Xнач, Xкон:-10 20С = 1xmax = -10  ymax = 1110