помогите пожалуйста! две задачи на паскале...

[Машка]

1.Составить алгоритм для расчета функции
у= (0.95*sin(x)*sin(x)*sin(x))/(1+0.95*x*x*x)
при изменении x от x0 до xk с шагом hx.


2.Const N=40;
Var X:Array[l..N] of Integer;
Y,K:Integer;
T:Boolean;
Переменной К присвоить либо номер первого вхождения Y в массив X, либо - число N+1, если Y не входит в X.

[начинающий кодер]

1

x:=x0;
repeat 
y:=(0.95*sin(x)*sin(x)*sin(x))/(1+0.95*x*x*x);
writeln(x:6:4,y:6:4)
x:=x+hx;
until x>xk

2

k:=0;
for i :=1 to n do 
if (x[i]=y) then  begin
k:=i;
break;
end;
if k=0 then k:=n+1;
writeln(k);

[Машка]

спасибо большое)