program A1 var z1 z2 real begin writeln Введите значение read if then

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
program A1;
var a,y,e,x,z1,z2:real;
begin
writeln('Введите значение а');
read(a);
if a>0 then z2:=sqr(a);
if a<=0 then z2:=0;
writeln('Z2=',z2);
z1:=(3*a)/(1-2*a);
writeln('Z1=',z1);
x:=z2*sqr(cos(z1))+sin(sqr(a));
writeln('X=',x);
y:=exp(x*ln(e))*sqrt(1+exp(2*x*ln(e)))+arctan(exp(x*ln(e)));
writeln('Y=',y);
end.