Ответ:

var x,y : real;

begin

readLn(x);

if(x <> 0) then

begin

y := 1/x;

writeLn("y=", y);

end

else

writeLn("функция не существует");

end.