Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
Readln(x);
//X^Y = exp(ln(X) * Y) - возведение в степень
ctg1:=cos(x)/sin(x);
y:=sqrt(sqrt((x*x+3)/(x-1))-exp(ln(ctg1*5)*3);
Var
k: real;
begin
readln(k);
writeln('a = ', k / 5, '; b = c = ', k / 5 * 2);
<span>end.</span>