uses math;
var
x,y: integer;
begin
readln(x,y);
writeln('1 ', x-(x**3/3)+(x**5/5):2:5);
writeln('2 ',2**(-x)- cos(x)+sin(2*x*y):2:5);
writeln('3 ',(x**2-7*x+10)/x**2-8*x+12:2:5);
writeln('4 ',x-10*sin(x)+abs(x**4-x**5):2:5);
end.
Убери в начале uses math; если ты будешь запускать в PascalABC.NET
Если во FreePascal то оставь
Правильность решения не гарантирую ибо я 9 класс..