Записать выражение на языке Паскаль, учитывая область определения - Turbo Pascal

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

записать выражение на языке паскаль,учитывая область определения

Решение задачи: «Записать выражение на языке Паскаль, учитывая область определения»

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

var x,a,b,y:real;
begin
write('x=');
readln(x);
if (frac(x)=0)and odd(trunc(x))//если х целое нечетное
then write('y не определено')//нет тангенса
else
 begin
  a:=sqr(sin(2*pi/3))*sin(abs(pi*x/2))/cos(abs(pi*x/2));
  if(x=1)or(arctan(x/2)=0)then write('y не определено')//деление на 0
  else
   begin
    b:=sqr(x-1)*arctan(x/2);
    y:=a/b+9*x;
    write('y=',y:0:2);
   end;
 end;
end.

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

Объявляются переменные x, a, b, y типа real.
Выводится сообщение x=.
Считывается значение переменной x.
Проверяется условие: если x целое и нечетное, и trunc(x) также целое и нечетное, то выводится сообщение y не определено, так как нет тангенса.
Если условие из предыдущего пункта не выполняется, то:
- вычисляется a = sqr(sin(2pi/3))sin(abs(pix/2))/cos(abs(pix/2));
- проверяется условие: если x = 1 или arctan(x/2) = 0, то выводится сообщение y не определено, так как есть деление на 0.
- если условие из предыдущего пункта не выполняется, то:
  - вычисляется b = sqr(x-1)*arctan(x/2);
  - вычисляется y = a/b + 9*x;
  - выводится сообщение y=, с указанием значения y с точностью до 2 десятичных знаков.