[Acolyte]

Извините,если не в тот раздел.
Помогите пожалуйста с лабой.
Дан пример:


a*(Cos(t))^3+b*Sin(t^3)

y= ______________________


a+b*ln|1/t+tg(t)|

Нужно высчитать у по вводимым с клавиатуры неизвестным a,t,b.

Program LAB1;

 var a,t,b,y,exit:real;

 begin
  read(a,t,b);
  if t=0 then writeln('Net reshenii') else
    begin
      if Cos(t)=0 then writeln('Net reshenii') else
        begin
          if (a+b*ln(abs(1/t+(Sin(t)/Cos(t)))))=0 then writeln('Net reshenii') else
            begin
              y:=(a*Cos(t)*Cos(t)*Cos(t)+b*Sin(t*t*t))/(a+b*ln(abs(1/t+(Sin(t)/Cos(t)))));
              writeln('y = ',y:2:10);
              read(exit);
            end;
        end;
    end;
  end.

Прога нормально компилится. Но результат у и высчитанное мной
значение на калкуляторе значение отличается. Подскажите,все ли
нормально с прогой?