uses crt;
var
a,b:integer;
min,i,j:real;
begin
clrscr;
repeat
write ('A = ');readln(a);
write ('B = ');readln(b);
until (a<=b);<br>if (a=0) or (a=3) then begin
i:=a+0.2;
min:=sqrt(i*i+4)/(i*i-3*i);
end else begin
i:=a;
min:=sqrt(i*i+4)/(i*i-3*i);
end;
if (b=0) or (b=3) then j:=b-0.2;
while i<=j do begin<br>if (sqrt(i*i+4)/(i*i-3*i)min:=sqrt(i*i+4)/(i*i-3*i);
i:=i+0.2;
end;
writeln ('Min: ',min:0:6);
end.