вычислить значение выражения, заданного системой уравнений

[artem 18]

помогите пожалуйсто решить задачу а то уже мозги кипят !!!!!!!!!!!!!!!!!!!!!!!!!1.jpg

[Vanta11a]

А они есть?

Что наработано на данный момент?

[artem 18]

var
  P : array[1..3,1..3] of real;
  i, j,k : integer;
  Sb2, c, a:real; {матрица, a}

  x : array[1..5] of real;
  b,Sb1: real;
  {число b}

  z,y :real;

begin
 a:=0; Sb2:=0;
 writeln ('Введите c');
 readln (c);
   writeln('ВВЕДИТЕ Pij ');
  for i:= 1 to 3 do
    for j:= 1 to 3 do
      read(P[i,j]);
  for i:= 1 to 3 do
  begin
    for j:= 1to 3 do
      write(P[i,j], ' ');
  writeln;
    for j:= 1to 3 do
      a:=a+(power(P[i,j],2)+P[i,j]);
   end;
     begin
      for i:= 1 to 3 do
       begin
        for j:= 1to 3 do
        Sb2:= Sb2 + (power((P[i,j]-c),2));
       end;
       writeln ('a =',a:7:4);
       writeln('Sb2=',Sb2:7:4);
       {конец суммы а}
      end;
      
begin

Sb1:=0;

writeln('ВВЕДИТЕ x ');
for i:= 1 to 5 do
read(x[i]);
   for i:= 1 to 5 do
   begin
    for i:= 1 to 5 do
    write(x[i], ' ');
    writeln;
    end;
     begin
      for i:= 1 to 5 do
        begin
        Sb1:= Sb1+(c*power(sin(x[i]),2)+sqrt(c*power(x[i],2)));
        end;
     end;
    writeln('Sb1=',Sb1:6:4);
    b:=1.085+0.82*Sb1+Sb2;
    writeln ('b=',b:6:4);

end;
    if a+b<=0.82 then
     begin
       z:=ln(power(c,2))- exp(a+b)+(ln(abs(c+a*b)))/ln(10);
       writeln ('Условие 1');
     end
    else if a-b>=b+0.85 then
       begin
       z:= sin(a*c-power(b*sqr(c),1/3)-exp(-(c*b)))/ cos(a*c-power(b*sqr(c),1/3)-exp(-(c*b)));
       writeln ('Условие 2');
       end
       else writeln ('не принадлежит условиям');
    writeln ('z=',z:7:4);
    
  if 2*a>=b-0.8 then
    begin
      y:=ln(abs((z)/(a*z+sqr(b)))) - exp(2*sqr(z)+b);
      writeln ('Условие 1');
    end
  else if 2*b<=0 then
    begin
      y:= sin(a*z-sqr(b)-power(b,3)*power(z,1/5))/cos(a*z-sqr(b)-power(b,3)*power(z,1/5));
      writeln ('Условие 2');
    end;
    
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.