program InverseValue;
var
x, y: real;
begin
write('Введите значение x: ');
readln(x);

if x <> 0 then
begin
y := 1 / x;
writeln('Результат: y = ', y:0:2);
end
else
writeln('Ошибка: деление на ноль!');

end.