Помогите!!! Решение полностью .

Question

Помогите!!! Решение полностью .

---

Answer 1

Program abc;
var a : real;
begin
a := sqrt(1+sqrt(2)+sqrt(3)+sqrt(7)+sqrt(9));
write(a)
end.