Составьте программу вычисления значения выражения

Question

Составьте программу вычисления значения выражения

---

Answer 1

Program z1;
var y:integer;
s:real;
begin
s:=0;
for y:=7 downto 1 do
s:=sqrt(y+sqrt(s));
writeln(s);
end.