Вычислить значение выражения при различных значениях переменных

##
  var (a, b, x) := (
    |282.606, 210.9, 200.355|,
    |6.365, 9.5, 10.165|,
    |4.38, 6.0, 10.86|);
  for var i := 0 to 2 do
    begin
      var (t, y) := (b[i] * 3.7 * x[i], 0.0);
      if t < a[i] then 
        y := power(10.96, -0.02 * x[i]) * exp(b[i]) - 0.315 * ln(a[i] - 4.74 * b[i] / x[i]) / ln(9)
      else
        if t > a[i] then
          y := 0.88 / tan(b[i] ** 2 / x[i]) * power(b[i], a[i] / -3.77 / x[i]) - log10(a[i] / 0.57 / b[i])
        else
          y := power(cos(x[i] / a[i] ** 2), 0.4) * power(a[i], b[i] / 3.12 / x[i]) - power(ln(2.23 * x[i] - b[i]), 1.2);
      $'a = {a[i]}, b = {b[i]}, x = {x[i]}, Y = {y}'.Println    
    end

var a,b,x,y:real;
                i,nf:integer;
    begin
    for i:=1 to 3 do
        begin
    if i=1 then begin a:=282.606 ; b:=6.365 ; x:=4.38; end;  
    if i=2 then begin a:=210.9; b:=9.5; x:=6; end;
    if i=3 then begin a:=200.355; b:=10.165; x:=10.86; end;
    If 
    (b*3.7*x<a)   then 
    begin   y:=exp((10.96)*ln(-0.02*x))*exp((e)*ln(b))-0.315*ln(a-4.7*b/x)/ln(9); nf:=1;
    end
    else 
     If  (b*3.7*x=a)
    then 
     begin 
     y:=exp(0.4*ln(cos(x/sqr(a)))*exp((a)*b/3.12/x)-exp(1.2*ln(2.23*x-b))); nf:=2; end
    else    If  (b*3.7*x>a) 
    then 
    begin   
    y:=0.88*(1/tan(sqr(b)/x))*exp((b)*ln(a/-3.77/x))-exp(10*log(a/0.57/b)); nf:=3; end;
    writeln('i=',i, '  a=',a, '  b=',b, '  x=',x,' y=',y,'  nf=',nf);
        end;
     end.