Program Lab3 (Input, Output);
Const
  K = 22.50;
  L = 7.5;
  x1 = 0.234;
  x2 = 1.426;
  x3 = -0.414;
Var
  x, a, b, y: real;
  n:integer;
Begin
  writeln('Please enter value of X');
  readln(n);
    Case n of
      1: x := x1;
      2: x := x2;
      3: x := x3;
    else writeln('No number  enter a number from 1 to 3');
  end;
  begin
   a := sqr(exp(-0.5 * ln(K)) - L * sqrt(x + 2.84));
  writeln('Result is a = ', a);
  end;
  begin
  b := -(ln(x) / ln(10)) * exp(x);
  writeln('Result is b = ', b);
  end;
  if a > b then
y := (4 * a + 3 * b) / (sqr(a) + sqr(b));
    writeln('Result is y = ', y);
  end.
else
    y := abs(a - b);
  writeln('Result is y = ', y);
End.

UHJvZ3JhbSBMYWIzIChJbnB1dCwgT3V0cHV0KTsKQ29uc3QKICBLID0gMjIuNTA7CiAgTCA9IDcuNTsKICB4MSA9IDAuMjM0OwogIHgyID0gMS40MjY7CiAgeDMgPSAtMC40MTQ7ClZhcgogIHgsIGEsIGIsIHk6IHJlYWw7CiAgbjppbnRlZ2VyOwpCZWdpbgogIHdyaXRlbG4oJ1BsZWFzZSBlbnRlciB2YWx1ZSBvZiBYJyk7CiAgcmVhZGxuKG4pOwogICAgQ2FzZSBuIG9mCiAgICAgIDE6IHggOj0geDE7CiAgICAgIDI6IHggOj0geDI7CiAgICAgIDM6IHggOj0geDM7CiAgICBlbHNlIHdyaXRlbG4oJ05vIG51bWJlciDCoGVudGVyIGEgbnVtYmVyIGZyb20gMSB0byAzJyk7CiAgZW5kOwogIGJlZ2luCiAgIGEgOj0gc3FyKGV4cCgtMC41ICogbG4oSykpIC0gTCAqIHNxcnQoeCArIDIuODQpKTsKICB3cml0ZWxuKCdSZXN1bHQgaXMgYSA9ICcsIGEpOwogIGVuZDsKICBiZWdpbgogIGIgOj0gLShsbih4KSAvIGxuKDEwKSkgKiBleHAoeCk7CiAgd3JpdGVsbignUmVzdWx0IGlzIGIgPSAnLCBiKTsKICBlbmQ7CiAgaWYgYSA+IGIgdGhlbgp5IDo9ICg0ICogYSArIDMgKiBiKSAvIChzcXIoYSkgKyBzcXIoYikpOwogICAgd3JpdGVsbignUmVzdWx0IGlzIHkgPSAnLCB5KTsKICBlbmQuCmVsc2UKICAgIHkgOj0gYWJzKGEgLSBiKTsKICB3cml0ZWxuKCdSZXN1bHQgaXMgeSA9ICcsIHkpOwpFbmQu

MQoyCjM=

1
2
3