Дано с,d. Вычислить y=e^d+tg(c/1+sqrt(d^2+1). Если у>0, то вычислить и отпечатать z=c*y+d*y+c*d. Если у=0, напечатать «у=0», иначе вычислить x=arcsin(y)+tg(d/2)- Pascal(Паскаль)

program Pr1;
uses crt;
var
x,z,t,y,c,d : real;
begin
writeln ('vvedite c,d');
readln(c,d);
t:=c/(1+sqrt(d*d+1));
y:=exp(d)+sin(t)/cos(t);
writeln('y=',y);
if y>0 then begin
z:=c*y+d*y+c*d;
writeln('z=',z);
end
else
begin
x:=arctan(y/sqrt(1-y*y)+sin((d/2)/cos(d/2)));
writeln(x);
end;
if y=0 then
writeln('"y=0"');
end.