На интервале найти точку, в которой функция у=-1,2*х*х +0,3*х-5,3 принимает наименьшее значение

var x,y:real; k,a,b:integer;
begin
clrscr;
write('vvedite a b');
readln(a);
readln(b);
x:=0;
for k:=a to b do
begin
y:=-1.2*sqr(x)-0.3*x-5.3;
writeln('y=',y:7:2,' ','x=',x:7:2);
x:=x+0.5;
end;
end.

uses crt;
var x,y,xmin,ymin:real;
    a,b:integer;
begin
   clrscr;
   write('Введите a,b(через пробел):');
   readln(a,b);
   x:=a;
   while x<=b do
   begin
      y:=-1.2*sqr(x)-0.3*x-5.3;
      if(x=a)or(y<ymin)then
      begin
         xmin:=x;
         ymin:=y;
      end;
      writeln('y=',y:7:2,' ','x=',x:7:2);
      x:=x+0.5;
   end;
   writeln(#10,'ymin=',ymin:7:2,' ','xmin=',xmin:7:2);
   readln;
end.

uses crt;
var a,b,h,x,y,min:real;
begin
clrscr;
h:=0.5;
write('vvedite nachalo intervala a=');
readln(a);
repeat
write('vvedite konec intervala b>',a+h:0:1,' b=');
readln(b);
until b>a+h;
x:=a;
min:=-1.2*sqr(x)-0.3*x-5.3;
while x<=b+h/2 do
 begin
  y:=-1.2*sqr(x)-0.3*x-5.3;
  writeln('x=',x:7:2,'  y=',y:7:2);
  if y<min then min:=y;
  x:=x+h;
 end;
write('minimalnoe znachenie y=',min:0:2);
readln
end.