Напишите програму на Паскаль АBC

Разработайте программу, которая строит таблицу значений функции y=(ln x)/tg x при заданных диапазоне [a, b] изменения x и шаге h. Если значение функции в очередной точке не существует, то в соответствующей строке таблицы выведите сообщение «значение не существует».

Program pr1;Uses Crt;Vary,x,a,b,h:real;beginClrScr;write('a=');readln(a);write('b=');readln(b);write('h=');readln(h);x:=a;writeln('|   x      |              y          |');writeln('-------------------------------------');repeatif (sin(x)/cos(x)=0) or (x<0) then writeln ('|   ',x:2,'   |  значение не существует |')elsebeginy:=ln(x)/(sin(x)/cos(x)); writeln ('|   ',x:4,'   |         ',y:6:2,'          |');end;x:=x+h;Until x>b;writeln('-------------------------------------');readln;end.