Var a: real;
i, k: integer;
begin
readln(k);
for i := 1 to k do
a := sqrt(2 + a);
writeln(a);
<span>end.
Вот так, насколько я понимаю: вычисляем с конца корень из 2, потом к нему прибавляем 2 и опять вычисляем корень... И опять х) В общем, должно получится</span>
Если заюзать относительные пути, то должно быть - <span>%USERPROFILE%\Desktop
</span>
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) во вложении.