На отрезке (-3,14;3,14) с шагом 0,2 протабулировать функцию sin^2(x)+cos^2(x) Помогите...

переделай под свою
program yabulaciya; // f:=sin(k*k*k)/cos(k*k*k) + sin(k - 2.4);
uses crt; //x<4 <br>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.

** отрезке (-3,14;3,14) с шагом 0,2 протабулировать функцию sin^2(x)+cos^2(x) Помогите...