найти ошыбку в програме

[anurid]

Доброй ночи)
помогите найти ошыбку в програме) язык: Pascal
1. Найти область допустимых значений аргумента x.
2. Написать процедуру или функцию, которая вычисляет область допустимых
значений аргумента x.
3. Написать процедуру или функцию, которая вычисляет значение выражения
f(x) .
4. Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в
область допустимых значений. В случае попадания аргумента x в область допустимых
значений вычислить значение выражения f(x)и вывести его на экран монитора, в
случае непопадания аргумента x в область допустимых значений вывести об этом
информационное сообщение

вот что я набрал но оно чето неправельно пашет:

program lab5;
uses crt;
var x: real;
function ODZ(x1:real):integer;
begin
     if  (abs(0.1*x*x+x)-2>=0) and ((x-4)<>0) then ODZ:=1 else ODZ:=0;
end;
function func(x2:real):real;
var f1,f2: real;
begin
      f1:=arctan(sqrt(abs(0.1*x*x+x))-2)/sqrt(1-sqr(sqrt(abs(0.1*x*x+x))-2));

 f2:=x-4;
 func:=f1/f2;
 end;
 begin
 clrscr;
 writeln('Vvedite x');
 readln(x);
 if ODZ(x)=0 then writeln('x nevhodit v ODZ')
 else writeln('znachenia functia ravno ',func(x):2:3);
 readkey;
 end.

Помогите розобратса
Зарание спасибо)

[ROMA2PVT]

program lab5;
uses crt;
var x: real;
function ODZ(x1:real):integer;
begin
     if  (abs(0.1*x*x+x)-2>=0) and ((x-4)<>0) then ODZ:=1 else ODZ:=0;
end;
function func(x2:real):real;
var f1,f2,f4: real;
begin
f4:=sqrt(abs((0.1*x*x+x)))-2;
f1:=arctan(f4/(sqrt(1-sqr(f4))));
 f2:=x-4;
 func:=f1/f2;
 end;
 begin
 clrscr;
 writeln('Vvedite x');
 readln(x);
 if ODZ(x)=0 then writeln('x nevhodit v ODZ')
 else writeln('znachenia functia ravno ',func(x):2:3);
 readkey;
 end.

Так глянь.

[anurid]

Сообщение от ROMA2PVT

program lab5;
uses crt;
var x: real;
function ODZ(x1:real):integer;
begin
     if  (abs(0.1*x*x+x)-2>=0) and ((x-4)<>0) then ODZ:=1 else ODZ:=0;
end;
function func(x2:real):real;
var f1,f2,f4: real;
begin
f4:=sqrt(abs((0.1*x*x+x)))-2;
f1:=arctan(f4/(sqrt(1-sqr(f4))));
 f2:=x-4;
 func:=f1/f2;
 end;
 begin
 clrscr;
 writeln('Vvedite x');
 readln(x);
 if ODZ(x)=0 then writeln('x nevhodit v ODZ')
 else writeln('znachenia functia ravno ',func(x):2:3);
 readkey;
 end.

Так глянь.

при вводе чисел 5 и больше выдает ошыбку

Error 207: Invalid Floating Point Operation

[ROMA2PVT]

Написать процедуру или функцию, которая вычисляет область допустимых
значений аргумента x.

а потом уже проверяешь в этой области введёный x с клавиатуры.А так конечно у тебя область не определена и ты вводишь число наобум.Рас и корень из отрицательного числа не вычесляется.Ищи ОДЗ функции.