Турбо-Паскаль, циклические программы.

[Василий_0110]

Я попытался написать первую задачу, но не знаю как написать условие выбора минимального значения из b.

Program zadanie2;
var b, x, xn, xk,hx, y: real;
begin
writeln ('Vvedite xn, hx, xk');
readln (xn, hx, xk);
x:=xn;
   repeat
   Y:=2*sin(3/4*x);
   b:=sqrt(sqr(x)+sqr(y));

   writeln ('x= ',x, ' y= ', y, ' b= ', b);


   x:=x+hx;


   until x>xk;
 
end.