Думаю ето вам как то
Вот три первых вычисления
PascalABC.NET
begin
var x := ReadReal;
var y := x - Sqr(x) / 3 + x ** 6 / 4;
Println(y);
y := 3 ** (-x) + Cos(x) - Sin(x * x);
Println(y);
y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);
Println(y);
end.
