1.63

//1.63

Begin
  var y, a, x, b: double;

  write('Vvedite a: ');
  readln(a);

  write('Vvedite b: ');
  readln(b);

  write('Vvedite x: ');
  readln(x);

  if (a < x)AND(x < b) then
    y := a + b * x * x * x
  else
    if x <= a then
      y := a - sin(a - sqrt(x))
    else
      y := ln(x-b) / ln(10);

  writeln('Y = ', y);
end.