Напишите пожалуйста решение выражения в паскалеее!!!

Конечно, он нерабочий: множество проверок - неполное, в проверках частично дублируются вычисления, а в самих вычислениях скобки расставлены не в соответствии с формулой из постановки задачи.

И вам хоть намёк дали на область определения этой штуки? Мне кажется, трудновато будет искать её подбором. Хотя, если перебор закодировать в программу, то может получиться...

В общем, вот код, развлекайтесь:

 program Expression;

uses crt, math;

var a, x, y, xx, xma, xpa, cosx, tghalfx, bigdeal: real;

begin

  write('Введите x: ');

  readln(x);

  write('Введите a: ');

  readln(a);



  xx := sqr(x);

  if xx = 0 then

  begin

    writeln('Нет решения: x = 0');

    exit

  end;



  cosx := cos(x);

  if cosx = 0 then

  begin

    writeln('Нет решения: cos x = 0');

    exit

  end;



  tghalfx := tan(x/2);

  if tghalfx = 0 then

  begin

    writeln('Нет решения: tg(x/2) = 0');

    exit

  end;



  xma := x - a;

  if xma = 0 then

  begin

    writeln('Нет решения: x - a = 0');

    exit

  end;



  xpa := power(x, a);

  if xpa < 0 then

  begin

    writeln('Нет решения: x ^ a < 0');

    exit

  end;



  bigdeal := 0.43429 * ln(abs(tghalfx)) + (a - sqrt(xpa)) / abs(xma);

  if bigdeal < 0 then

  begin

    writeln('Нет решения: большое выражение под корнем < 0');

    exit

  end;



  y := ln(xx) / sqr(cosx) + sqrt(bigdeal);



  writeln ('Полученное значение y: ', y : 10 : 6)

end. 

При различных значениях a и x:

 Введите x: 2

Введите a: 3

Полученное значение y:   8.608319



Введите x: 1

Введите a: 1.5

Полученное значение y:   0.858741



Введите x: 3

Введите a: -1

Полученное значение y:   3.110729