Дэльфи, большая формула, нужно составить прогу для ее вычисления.

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,v,s,d,t,cs:Real;
i,n:Integer;
begin
try
x:=strtoint(e1.text);
y:=strtoint(e2.Text);
z:=strtoint(e3.Text);
s:=1+sqr(sin(x+y));
d:=x-((2*y)/(1+(sqr(x)*sqr(y))));
cs:=Sqr(Cos(1/sqr(Cos(1/z))));
n:=strtoint(e2.text);
for i:=0 to n do
x:=x*x;
v:=(s/d)*x+cs;
e4.Text:=FloatToStr(v);
except
on EZeroDivide do
ShowMessage('ошибка деления на 0');
on eMathError do
ShowMessage('ошибка с плавающей точкой 0');
end;
end;

s:=exp(ln(8+sqr(abs(x-y))+1)*1/3);
d:=sqr(x)+sqr(y)+2;
cs:=exp(abs(x-y))*exp((sqr(sin(z))/sqr(cos(z))+1)*x);
v:=(s/d)-cs;

var x,y,z,v,s,d,t,cs:Real;
i,n:Integer;
begin
try
x:=strtoint(edit1.text);
y:=strtoint(edit2.Text);
z:=strtoint(edit3.Text);
s:=exp(ln(8+sqr(abs(x-y))+1)*1/3);
d:=sqr(x)+sqr(y)+2;
cs:=exp(abs(x-y))*exp((sqr(sin(z))/sqr(cos(z))+1)*x);
n:=strtoint(edit2.text);
for i:=0 to n do
v:=(s/d)-cs;
edit4.Text:=FloatToStr(v);
except
on EZeroDivide do
ShowMessage('ошибка деления на 0');
on eMathError do
ShowMessage('ошибка с плавающей точкой 0');
end;
end;

try
<работа с выражением, содержащим тангенс>
except
showmessage('boom');
exit;
end;

program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
math;
 
begin
//Можно написать writeln(tg(pi/2):1:4); и вылетать не будет, но ответ все равно неправильный будет
writeln(1/sin(0):1:4); 
readln;
end.