Вычислить значение выражения - Pascal ABC (12570)

Формулировка задачи:

Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

Решение задачи: «Вычислить значение выражения»

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

var x,y:real;
begin
write('x=');
readln(x);
if x*x<=4 then write('y не определено')
else
 begin
  y:=ln(x*x-4)/ln(10)+1/x;
  write('y=',y:0:3);
 end;
end.

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

Объявляются две переменные типа real: x и y.
Выводится сообщение «x=», после чего считывается значение переменной x.
Вычисляется условие x*x<=4. Если оно истинно, то выводится сообщение «y не определено».
Если условие ложно, то начинается блок else.
Вычисляется значение выражения x*x-4.
Вычисляется значение выражения ln(x*x-4)/ln(10).
Вычисляется значение выражения 1/x.
Выводится сообщение «y=», после чего выводится значение переменной y с точностью до трех знаков после запятой.
Конец программы.