Простейшие разветвления

function Do_it(x, y, z, c:real):real;
var
    a, h:real;
begin
    if x>0 then
      begin
          if y*z>0 then
              begin
                    h:=c;
                    if y<z then
                      begin
                        a:=Sqrt(x)*y;
                        if (h < a) then h:=a;
                      end
                    else
                      begin
                        a:=Sqrt(x)*z;
                        if (h < a) then h:=a;
                      end;
                    a:=y-z;
                    if (h < a) then h:=a;
              end
          else
              begin
                   h:=x;
                   a:=y*y;
                   if (h > a) then h:=a;
              end;
      end
    else
        h:=1;
    Do_it:=h;
end;