uses
Math;
var
x, y: Double;
begin
y := x - Power (x, 2) / 3 + Power (x, 6) / 4;
y := Power (3, -x) + Cos (x) - Sin (x * x);
y := (Power (x, 3) + 9 * x + 12) / (x * x - 6 * x + 15);
y := x + 12 * Sin (2 * x) + Abs (Power (x, 3) + Power (x, 5));
end.
