Напишите пожплуйста программу по информатике в pascal

Question

Напишите пожплуйста программу по информатике в pascal

---

Answer 1

Без использования power():

program Primer;

var
  a, b, c, s, k, y: real;

begin
  writeln('Введите a,b,c: ');
  readln(a, b, c);
  s := sqrt(3 * (sqr(a) * sqr(a))) / (3 * c) + 3 * b;
  k := s + sqrt(abs(sqr(a) * a - b - 2 * c));
  y := k - s / (b * c) + sqrt(s);
  writeln('y=', y);
end.

---

Answer 2

Var
  a, b, c, s, k, y: real;

begin
  readln(a, b, c);
  s := (sqrt(3 * power(a, 4)) / (3 * c)) + 3 * b;
  k := s + sqrt(abs(power(a, 3) - b - 2 * c));
  y := k - s / (b * c) + sqrt(s);
  writeln(y:0:4);
end.