Решите задачку на Паскале

Program n_1;

var x, y:double;

begin

   readln(x);

   if (xgt;=0) and (xlt;gt;5) then

       begin y:=1/(x-5); writeln(y:0:5); end

   else begin

       if xlt;gt;5 then begin y:=1/(x-1); writeln(y:0:5); end

       else writeln ('Нет решений');

   end

end.

В программе есть маленький нюанс: при выводе (y:0:5) 5 - количество знаков после запятой. Если будет нужно иная точность - ее можно отрегулировать. Только из-за этого: допустим точность = 5, x=7. Вывод будет 0.50000