решите,пожалуйста.Буду признательна)

8) Область определения функции:

2x + 1 gt;= 0
2x gt;= -1
x gt;= -0.5

20x - 5 lt;gt; 0
20x lt;gt; 5
x lt;gt; 5/20
x lt;gt; 1/4

x [-0.5; 0.25) U (0.25; )

На Паскале вычисление значения этой функции с учетом области определения может смотреться так:

if (x gt; -0.5) and (x lt;gt; 0.25) then begin
writeln(sqrt(2*x + 1) / (20 * x - 5));
end;

9)

begin
  var price: real;
 
  readln(price);
 
  if price gt; 3000 then begin
    price := price - price * 0.05;
  end
  else if price gt; 1000 then begin
    price := price - price * 0.03;
  end;
 
  writeln(price);
end.


10)

begin
  var x, f: real;
 
  readln(x);
 
  f := 0;
 
  if x gt; 5 then begin
    f := x*x - 1;
  end
  else if x lt; -2 then begin
    f := 2*x;
  end;
 
  writeln(f);
end.