Проверьте программу вычисления след. функций знак A обозначает "для любых"


var x,a,b,t,y,z:real;

begin

writeln('Введите значения x');

readln(x);

writeln('Введите значения a');

readln(a);

writeln('Введите значения b');

readln(b);

if(x=0)or(b=0) then write('Значение t не определено, деление на 0')

else

begin

t:=b*b+a/cos(x);

y:=t-ln(abs(a));

if cos(t)=0 then write('Значение z не определено, деление на 0')

else

begin

z:=cos(sin(y)/cos(y))+t*t*t;

write('Z=',z:0:3);

end;

end;

end.