Составить программу , в среде pascal abc (turbo pascal) выполняющую вычисления по формуле: y=2ctg3x-

Паскаль авс: program ikiru; uses crt; var   y,x: real; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); writeln();       write('введите х '); readln(x);       if (sin(3*x)=0) or (ln(1+x*x)=0) or (cos(x)< =0)           then               writeln('функция y для этого значения х не определена')           else               begin                   y: =2*(cos(3*x)/sin(3*(cos(x))/ln(1+x*x);                   writeln('y=',y: 8: 2);               end; end. пояснения: write('введите х '); readln(x);   - программа просит пользователя ввести х if (sin(3*x)=0) or (ln(1+x*x)=0) or (cos(x)< =0)   - проверка существования функции (функция ctgх не существует, если sinx=0, ln берется только от неотрицательных значений, в знаменателе дроби не может быть 0) если хотя бы одно из условий не выполняется,  выводится ссобщение о том, что функция для этого значения не определена. если все проверки пройдены, программа вычисляет значение функции y и выводит его на экран.

А