Program n_1;
var x, y:double;
begin
readln(x);
if (x>=0) and (x<>5) then
begin y:=1/(x-5); writeln(y:0:5); end
else begin
if x<>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