Решить уравнение - Pascal (80723)

Помогите написать задачу на паскале(текстовые файлы).

Листинг программы

var
 x:real;
begin
 readln(x);
 if x<>0 then
  writeln(1/x)
 else
  writeln('Деление на 0!');
end.

Объяснение кода листинга программы

Объявляется переменная x типа real.
Осуществляется ввод значения переменной x с помощью функции readln.
Выполняется проверка условия: если значение переменной x не равно 0, то происходит следующее:
- выводится результат деления 1 на значение переменной x с помощью функции writeln.
Если значение переменной x равно 0, то выводится сообщение Деление на 0! с помощью функции writeln. Этот код выполняет ввод значения переменной, проверку условия и вывод результата или соответствующего сообщения в зависимости от значения переменной x.