var x,y : real;
begin
readLn(x);
if(x <> 0) then
y := 1/x;
writeLn("y=", y);
end
else
writeLn("функция не существует");
end.
var x,y : real;
begin
readLn(x);
if(x <> 0) then
begin
y := 1/x;
writeLn("y=", y);
end
else
writeLn("функция не существует");
end.