Инструкция к решению данного уравнения

ссылка на тестирования решения данного уравнения

www.jdoodle.com/ - Online Compiler And Editor для тестирования решения уравнения.(для этого необходимо пройти регистрацию)

Весь текст указанный снизу скопировать :

uses crt;

function F(x,y:real):real;

var z:real;

begin

z:=1-sin(x)/cos(x);

if z=0 then F:=cos(x-y)

else if z>0 then F:=exp(ln(z)*cos(x)/sin(x))+cos(x-y)

else F:=-exp(ln(-z)*cos(x)/sin(x))+cos(x-y)

end;

var x,y:real;

begin

clrscr;

writeln('Ââåäèòå x,y');

readln(x,y);

if (sin(x)=0)or(cos(x)=0) then write('ÔóГ*êöèÿ Г*ГҐ îïðåäåëåГ*Г*')

else write('F=',F(x,y):0:3);

readln

end.