Разветвляющийся вычислительный процесс, PascalABC

[nikita77]

Ребята, нужно составить программу по вложению на картинке. Помогите, пожалуйста!)

[Stilet]

Попыток и наработок не было и не ожидается?

[nikita77]

Поползновения были, вот, собственно:

 program zadacha2;
const n2=2.11;
var S,n1:real;
 begin
n2:=((power 5,1/3)*(ln(5)/ln(3)))/(0.1845*sin(2.11));
 if n1*n2<0 or n1*n2=0 then
  begin
  S:=sqrt(ABS(n1*n2));
  end
   else
   if 2<n1*n2 and n1*n2<5 then
    begin
    S:=exp(n1*n2);
    end
     else
     if not n1*n2<0 or n1*n2=0 or 2<n1*n2 and n1*n2<5 then
      begin
      S:=sqrt(ABS(n1+n2));
      end;
  writeln('Результат');
  writeln('n1=');
  writeln('S=');
 end.

[Stilet]

Ну хоть что-то...
Мое предложение

var n1,n2,s:double;
begin
 n2:=2.11;
 n1:=(exp(1/3*ln(5)*ln(3)/ln(5)))/(0.1845*sin(n2));
 s:=n2*n1;
 if s<=0 then s:=sqr(abs(s)) else
 if (2<s)and(5>s) then s:=exp(abs(n1+n2)) else
 s:=sqrt(abs(n1+n2));
 write(s); readln;
end.

Могу ошибиться в формуле для n1, но алгоритм вроде правильный.