Составить программу ветвящегося вычислительного процесса. Значения исходных данных выбрать самостоятельно. Условие: — Pascal(Паскаль)

x=A^B и y=B^A, если B*A<0;
x=sqrt(A) и y=sqrt(B), если B>0 и A>0;
x=ln(A) и y=ln(B), если B<0 и A<0.

Program Zzz;

Var
  a, b, x, y: Real;

Begin
  Writeln('Vvedite a  b');
  Readln(a, b);
  If b * a < 0 Then
  begin
    x := exp(b * ln(a));
    y := exp(a * ln(b))
  end
  Else If ((b > 0) and (a > 0)) Then
  begin
    x := sqrt(a);
    y := sqrt(b)
  end
  Else If ((b < 0) and (a < 0)) Then
  begin
    x := ln(abs(a));
    y := ln(abs(b))
  end;
  Writeln('x=', x, 'y=', y);

End.