VAR
 x,y,z,p:Real;
BEGIN
 Write('x= ');
 Readln(x);
 Write('y= ');
 Readln(y);
 p:=1.0+Abs(x+y);
 If Sin(p)<>0 then
  begin
   z:=Cos(p)/Sin(p)-p*p*p;
   Writeln('z = ',z:0:5);
  end
 else
  Writeln('No solution!');
 Readln;
END.

VAR
 x:Real;
Function Y(z:Real):Real;
begin
 Y:=Exp(z*Ln(2))+Exp(-z*Ln(4))-Exp(z*Ln(3));
end;
BEGIN
 Write('x= ');
 Readln(x);
 Writeln(Y(x):0:5);
 Readln;
END.

VAR
 AB,BC,AC,ABC,ACB,BAC:Real;

Function P(a,b,c:Real):Real;
begin
 P:=a+b+c;
end;

Function S(a,b,c:Real):Real;
var p2:real;
begin
 p2:=P(a,b,c)/2;
 S:=Sqrt(p2*(p2-a)*(p2-b)*(p2-c));
end;

Function GrRad(x:Real):Real;
begin
 GrRad:=x/180*Pi;
end;

Function RadGr(x:Real):Real;
begin
 RadGr:=x/Pi*180;
end;

Function ArcSin(X:Real):Real;
begin
 if X=1 then ArcSin:=Pi/2
 else
 if X=-1 then ArcSin:=-Pi/2
 else
 ArcSin:=ArcTan(X/Sqrt(1-X*X));
end;

Function FindSide(a,b,C:Real):Real;
begin
 FindSide:=Sqrt(Sqr(a)+Sqr(b)-2.0*a*b*Cos(C));
end;

Function FindAngle(a,b,A_a:Real):Real;
begin
 FindAngle:=ArcSin(b/a*Sin(A_a));
end;

BEGIN
 Write('Side AB= ');
 Readln(AB);
 Write('Side BC= ');
 Readln(BC);
 Write('Angle (degrees) ABC= ');
 Readln(ABC);
 AC:=FindSide(AB,BC,GrRad(ABC));
 ACB:=RadGr(FindAngle(AC,AB,GrRad(ABC)));
 BAC:=RadGr(FindAngle(AC,BC,GrRad(ABC)));
 Writeln('Sides:');
 Writeln('AB = ',AB:0:3);
 Writeln('BC = ',BC:0:3);
 Writeln('AC = ',AC:0:3);
 Writeln;
 Writeln('Opposite angles:');
 Writeln('ACB = ',ACB:0:3);
 Writeln('BAC = ',BAC:0:3);
 Writeln('ABC = ',ABC:0:3);
 Writeln;
 Writeln('P = ',P(AB,BC,AC):0:3);
 Writeln;
 Writeln('S = ',S(AB,BC,AC):0:3);
 Readln;
END.

VAR
 N,m:Integer;
BEGIN
 Write('N= ');
 Readln(N);
 If N<0 then writeln('Negative') else writeln('Not negative');
 If (N mod 7)=0 then writeln('Divisible by 7') else writeln('Not divisible by 7');
 If N>6 then writeln('Lager then 6') else writeln('Not lager then 6');
 If N>0 then
  begin
   m:=1;
   Repeat
    m:=m*5;
   Until m>=N;
   If m=N then writeln('The power of 5') else writeln('Not the power of 5');
  end else writeln('Not the power of 5');
 Readln;
END.

VAR
 x,y:Real;
BEGIN
 Write('x= ');
 Readln(x);
 If x<0 then y:=Abs(1+x)*2
 else
 If x=0 then y:=0
 else y:=Ln(1+x)/Ln(10);
 Writeln('y = ',y:0:5);
 Readln;
END.

VAR
 x,z,t,w:Real;
BEGIN
 Write('x= ');
 Readln(x);
 w:=Exp(x*Ln(2))-4;
 if x>0 then t:=Sin(x+10)/Cos(x+10)
 else t:=1.0-Abs(3-x);
 If Abs(t)>Abs(w) then z:=t+w*2 else z:=w+t*2;
 Writeln('z = ',z:0:5);
 Readln;
END.