Составить эти формулы в паскаль

Question

Составить эти формулы в паскаль

---

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var k := ReadInteger('k=');
  var a := ReadReal('a=');
  var f1 := Power(2, 1 / (k - 2));
  var x := k > 0 ? k + 1 : k - 1;
  var f2 := Sqrt(Abs(k)) * Sin(x);
  var y := a / 2 * (Exp(x / 2) + Exp(-x / 2));
  var z := (f1 * f1 * f1 + f2) / Log10(Abs(2 * f2));
  Writeln('x=', x, ', f1=', f1, ', f2=', f2);
  Writeln('y=', y, ', z=', z)
end.

Пример
k= 4
a= 3.542
x=5, f1=1.4142135623731, f2=-1.91784854932628
y=21.7205693369688, z=1.55962568981668