Помогите пожалуйста срочно!!!!!

Question

Помогите пожалуйста срочно!!!!!

---

Answer 1

Var x: real;
begin
     readln(x);
     writeln(2 * x * sqrt(x + sqrt(x)));
end.

2)
var a, b, c: real;
begin
     readln(a, b, c);
     writeln('>', (a + b + c) / 3);
end.
Среднее арифметическое)

---