Напишите програму на Паскаль АBCРазработайте программку, которая строит таблицу значений

Program pr1;
Uses Crt;
Var
y,x,a,b,h:real;
begin
ClrScr;
write('a=');
readln(a);
write('b=');
readln(b);
write('h=');
readln(h);
x:=a;
writeln('   x                    y          ');
writeln('-------------------------------------');
repeat
if (sin(x)/cos(x)=0) or (xlt;0) then
writeln ('   ',x:2,'     значение не существует ')
else
begin
y:=ln(x)/(sin(x)/cos(x)); 
writeln ('   ',x:4,'            ',y:6:2,'          ');
end;
x:=x+h;
Until xgt;b;
writeln('-------------------------------------');
readln;
end.