Вычисление двух выражений в одной программе с учетом ОДЗ

program laba1;
var f,z,m,t,b,c:real;
begin
  writeln('vvedite m,t,c,b');
  readln(m,t,c,b);
    {ОДЗ для первого выражения}
    if sin(t)=0 then
      writeln('na 0 delit nelz')
    else
      if ((m*(cos(t)/sin(t))+(c*sin(t)))<0) and (3 mod 2=0) then
        writeln('корень четной степени из отрицательного числа !!ERROR!!')
      else
          begin
            if ((m*(cos(t)/sin(t))+(c*sin(t)))=0) then
              f:=(m*(cos(t)/sin(t))+(c*sin(t)))
            else
              begin
                f:=exp(1/3*ln(abs(m*(cos(t)/sin(t)))+abs(c*sin(t))));
                writeln('f=',f:7:3);
              if ((m*(cos(t)/sin(t))+(c*sin(t)))<0) and (3 mod 2<>0) then
                f:=-f;
              end;
          end;
     {ОДЗ для второго выражения}
      if (t-1)=0 then writeln('na nol delit nelza') else
      if ((b*t*sin(t))=0) then z:=(m*cos((b*t*sin(t))))/(t-1)
      else
        begin
          z:=(m*cos(exp(4*ln(abs(b*t*sin(t))))))/(t-1);
        if ((b*t*sin(t))<0) and (4 mod 2<>0) then
          z:=-z;
           writeln('z=',z:7:3);
        end;
end.

program laba1;
uses crt;
var f,z,m,t,b,c:real;
    x:real;
begin
clrscr;
writeln('vvedite m,t,c,b');
readln(m,t,c,b);
{Ћ„‡ ¤«п ЇҐаў®Ј® ўла*¦Ґ*Ёп}
if sin(t)=0 then  writeln('F ne opredeleno, delenie na 0')
else
 begin
  x:=m*cos(t)/sin(t)+abs(c*sin(t));
  if x>0 then f:=exp(ln(x)/3)
  else if x=0 then f:=0
  else f:=-exp(ln(abs(x))/3);
  writeln('F=',f:0:3);
 end;
{Ћ„‡ ¤«п ўв®а®Ј® ўла*¦Ґ*Ёп}
if (t-1)=0 then writeln('na nol delit nelza') else
z:=sqr(sqr(m*cos(b*t*sin(t))))/(t-1);
writeln('z=',z:0:3);
readln
end.