iolandavalerypad353 Function Foo(x:real):real;
begin
   if x<0 then result:=1/(x-1)
   else if (x>0) and (x<>5) then result:=1/(x-5)
end;

begin
   var x := ReadlnReal('x =');
   if (x = 0) or (x = 5) then
      Print('Функция не определена')
   else Print('y = ',Foo(x))
end.

DonPedro80 Var
  x,y:real;
begin
  Write('Введите число: ');
  Readln(x);
  if x=0 then Writeln('Функция не определена')
  else if x=5 then Writeln('Значение функции бесконечно')
  else
  begin
    if x<0 then y:=1/(x-1)
    else y:=1/(x-5);
    Writeln('F(x)=',y)
  end
end.