pascal Составьте программу табулирования функции y=x+ln[sin(x)]на интервале x{-3;3} шаг х=0,2

примени себе
program tabulaciya; // f:=sin(k*k*k)/cos(k*k*k) + sin(k - 2.4);
uses crt; //x<4
var a:integer;
f,k:real;
BEGIN
clrscr;
writeln('vichislenie funkcii');
writeln('---------------------');
writeln;
write('vvesti levuy granicu promegutka A (celoe!)-->');
readln(a);
writeln;
writeln(' x f');
writeln('----------------');
k:=a;
repeat
f:=sin(k*k*k)/cos(k*k*k) + sin(k - 2.4);
writeln(k:6:2,f:7:2);
k:=k+0.2;
until k >4;
writeln('----------------');
writeln;
writeln('konec zadachi');
readkey;
END.