Ученикам 10 класса ВОПРОС. Срочно. Информатика.

Ответ:

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.