Вычислить
1.

2.

Используя функции и процедуры

И что сложного? Сам пробовал что?

первое решил, а вот второе в голове не укладывается. длинные корни эти.

Второе с конца решай.
Сначала
sqrt(50)
затем
sqrt(49+sqrt(50))
ну и так далее

Это стандартная задача на использование рекурсии, если что:

function f(n: integer): real;
begin
  if n = 51 then f := 0
  else f := sqrt(n + f(n + 1));
end;

// вызывать f(1)

Если они рекурсию не проходили, то лучше циклом с конца.
Дадут задание сделать через рекурсию - будет такое решение.
А пока что это "предварительная пессимизация"

Циклом - это значит "процедуры/функции нафиг не нужны, но мы будем их втыкать, потому что задание такое" - еще большая пессимизация. Кстати, не надо думать, что все компиляторы одинаковые. Если компилятор умеет оптимизировать хвостовую рекурсию - то работать будет быстрее (по крайней мере, не медленнее) того цикла, который ты будешь выдумывать. А выглядит - приятнее.

> Если компилятор умеет оптимизировать хвостовую рекурсию

Ну вообще да, я просто забыл, что кроме ботланда есть и другие производители сред разработки...