Написать Модуль для решения уравнения методом итераций

[Константинн]

Решить уравнение arccos(x)-sqrt(1-0.3*x^3)=0
Написать свой модуль и использовать процедурный тип.
Помогите где ошибка?!!!!!!!!!
Пишет ERROR 15 file not found
*********************************** **********************
Модуль
*********************************** *********************
unit Unit2;
interface
type
Tfunc=function(x:real):real;
function Kor(x0:real;Func:TFunc):real;
implementation
function Kor(x0:real;Func:Tfunc)real;
var Xk,Xn:real;
begin
Xn:=x0;
while ((Xk-Xn)>=00000.1) do
begin
Xk:=Func(Xn);
Xn:=Xk;
end;
Kor:=Xk;
end;
end.
*********************************** **********************
Гл.программа
*********************************** *********************
program main;
uses
Unit2;
{$F+}
function MyFunction(Xn:real):real;
begin
MyFunction:=exp(1/3*ln((3-3*sqr(arctan(sqrt((1-Xn*Xn)/Xn))))/10));
end;
{$F-}
begin
writeln('Resultat=',Kor(0.2,MyFunct ion):7:6);
readln;
end.

[Летучий_СкилетиК]

Пишет ERROR 15 file not found

конечно пишет потомучто файла нету
Сохраните модуль как Unit2.pas затем сделайте complite/make/build и закравайте модуль.

[Tayfun]

123.rar
Если не поняли что имеет ввиду Летучий, то во вложении уже откомпелированный