program equats;
uses math;
var x:real;
function first(n:real):real;
begin
first := n - n**3 / 3 + x**5 / 5;
end;
function second(n:real):real;
begin
second := 2**(-n) - cos(x) + sin(2*n*first(n));
end;
function third(n:real):real;
begin
third := (x**2 - 7 * x + 10) / (x**2 - 8 * x + 12);
end;
function fourth(n:real):real;
begin
fourth := x - 10 * sin(x) + abs(x**4 - x**5);
end;
begin
writeln('Введите "x": ');
readln(x);
writeln('1.Result:= ', first(x):4:4);
writeln('2.Result:= ', second(x):4:4);
writeln('3.Result:= ', third(x):4:4); // если ввести 2 или 6 в знаменателе будет ноль :(
writeln('4.Result:= ', fourth(x):4:4);
end.
