ПОМОГИТЕ РЕШИТЬ, ПОЖАЛУЙСТА! 

1)uses crt;
begin
if sqrt(1+sqrt(1+sqrt(1+sqrt(1))))lt;(1+sqrt(5))/2 then writeln('верно') else writeln('ошибочно');
end.
2)uses crt;
var x:integer;
y:real;
begin
readln(x);
if xlt;gt;10 then begin y:=(sqr(x+5))/(10-x); writeln(y)
end else writeln('x не заходит в область определения');
end.
3)uses crt;
var n,e,d,s,t:integer;
begin
readln(n);
e:=n mod 10;
d:=(n div 10) mod 10;
s:=(n div 100) mod 10;
t:=n div 1000;
writeln(e,d,s,t);
end.

Полагаю, программой надобно) Вот:
1:
begin
     writeln(sqrt(1 + sqrt(1 + sqrt(1 + sqrt(1)))) lt; (1 + sqrt(5)) / 2);
end.

2: (как я сообразил, надобно ввести X, не бесконечность же выводить)
var
   y, x: real;
begin
     readln(x);
     if (x lt;gt; 10) then
        y := power(x + 5, 2) / (10 - x)
     else
         writeln('Error!');
     writeln(y);
end.

3:
var
   x, x1, x2, x3, x4: integer;
begin
     readln(x);
     x1 := x div 1000;
     x2 := x mod 1000 div 100;
     x3 := x mod 100 div 10;
     x4 := x mod 10;
     writeln(x4 * 1000 + x3 * 100 + x2 * 10 + x1); //можно было без суммы, но раз уж надобно вывести конкретно число...:)
end.