Напишите программу вычисления линейного арифметического выражения :

1)

var y,a,b,m,n,e:real;  

begin

 readln(e);

 n:=e;

 m:=sqrt(2);

 b:=abs(m-(sin(n)/cos(n)));

 a:=exp(ln(m + sqrt(n)) / 3.0);

 y:=sqrt(1/a*a+1/b*b);

 write('y=',y);  

end.

2)

var y,a:real;  

begin

 readln(a);

 y:=(3*a*a+1)/(a*a+1)+(sin((a*a+1)/(3*a*a+1))/cos((a*a+1)/(3*a*a+1)));

 write('y=',y);  

end.

Объяснение: