Вычислить минимальное по абсолютной величине значение функции и соответствующее значение аргумента

var x0,xn,hx,i,minx,minf:real;
 
function f(x:real): real;
begin
  f:=sin(x);
end;
 
begin
  write('Введите x0:');
  readln(x0);
  write('Введите xn:');
  readln(xn);
  write('Введите hx:');
  readln(hx);
  
  minx:=x0;
  minf:=abs(f(x0));
  i:=x0;
  while (i<=xn) do
  begin
    write(i,'  ',f(i));
    writeln;
    if (minf>abs(f(i))) then
    begin
      minf:=abs(f(i));
      minx:=i;
    end;
    i:=i+hx;
  end;
  
  writeln('Минимальное по абсолютной величине значение функции и соответствующее значение аргумента:');
  writeln(minx,'  ',minf);
  
end.

program LabWork4;
type
  TValue=Real;
var x0,xn,hx,
    minx,minf:Real;
function f(x:Real): Real;
begin
  f:=sin(x);
end;
begin
  Writeln;
  Writeln('Лабораторная работа №4');
  Writeln('Выполнил ');
  Writeln('Диапазон исследования и заданное значение функции(x0,xn,hx,):');
  Readln(x0,xn,hx);
  Writeln('Исходные данные:');
  Writeln;
  Writeln('Диапазон: [',x0:1:1,',',xn:1:1,']','шаг:',hx:1:1);
  minf:=abs(f(x0));
  while (x0<=xn) do
  begin
    Writeln(x0,'  ',f(x0));
    if (minf>abs(f(x0))) then
    begin
      minf:=abs(f(x0));
      minx:=x0;
    end;
    x0:=x0+hx;
  end;
  Writeln('Минимальное по абсолютной величине значение функции и соответствующее значение аргумента:');
  Writeln(minx,'  ',minf);
end.

uses crt;
function f(x:real): real;
begin
  f:=sin(x);
end;
var x0,xn,hx,x,minx,minf:real;
begin
write('Введите x0=');
readln(x0);
repeat
write('Введите xn>',x0:0:1,' xn=');
readln(xn);
until xn>x0;
repeat
write('Введите hx<',xn-x0:0:1,' hx=');
readln(hx);
until hx<xn-x0;
minx:=x0;
minf:=abs(f(x0));
x:=x0;
while x<=xn do
 begin
  writeln('x=',x:4:1,' f=',f(x):6:3);
  if minf>abs(f(x)) then
   begin
    minf:=abs(f(x));
    minx:=x;
   end;
  x:=x+hx;
 end;
writeln('Минимальное по абсолютной величине значение функции=',minf:0:3);
writeln('соответствующее значение аргумента=',minx:0:1);
end.

x:=x0;
repeat
writeln('x=',x:4:1,' f=',f(x):6:3);
if minf>abs(f(x)) then
 begin
  minf:=abs(f(x));
  minx:=x;
 end;
x:=x+hx;
until x>xn;

function f(x: real): real;
begin
  f := sin(x)
end;
 
var
  x0, xn, hx, x, minx, minf: real;
 
begin
  write('Введите x0=');
  readln(x0);
  repeat
    write('Введите xn>', x0:0:1, ' xn=');
    readln(xn);
  until xn > x0;
  repeat
    write('Введите hx<', xn - x0:0:1, ' hx=');
    readln(hx);
  until hx < xn - x0;
  minx := x0;
  minf := abs(f(x0));
  x := x0;
  writeln('':5, '_________________');
  writeln('':5, '|  x   |    f   |');
  writeln('':5, '-----------------');
  x := x0;
  repeat
    writeln('':5, '|', x:5:1, ' | ', f(x):7:4, '|');
    if minf > abs(f(x)) then
    begin
      minf := abs(f(x));
      minx := x
    end;
    x := x + hx
  until x >= xn;
  writeln('':5, '-----------------');
  writeln('Минимальное по абсолютной величине значение функции=',minf:0:3);
  writeln('соответствующее значение аргумента=',minx:0:1)
end.