как проще ее написать?

[777pro777]

type pType = record X, Y : Real; end; 
const Triangls : array [1..2, 1..3] of pType = (((X:0; Y:3), (X:-3; Y:-2), (X:3; Y:-2)), ((X:0; Y:-3), (X:-3; Y:2), (X:3; Y:2))); 
function LenOtr(A, B : pType) : Real; begin LenOtr := Sqrt((A.X-B.X)*(A.X-B.X)+(A.Y-B.Y)*(A.Y-B.Y)); end; 
function STriangle(A, B, C : pType) : Real; 
begin 
STriangle := Sqrt((LenOtr(A, B)+LenOtr(A, C)+LenOtr(B, C))*(-LenOtr(A, B)+LenOtr(A, C)+LenOtr(B, C))*(LenOtr(A, B)-LenOtr(A, C)
+LenOtr(B, C))*(LenOtr(A, B)+LenOtr(A, C)-LenOtr(B, C))) / 4; 
end; 
function PointItTriangle(P : pType; T : Byte) : Boolean; 
begin 
PointItTriangle := 
Abs(STriangle(Triangls[T, 1], Triangls[T, 2], Triangls[T, 3]) 
 - STriangle(P, Triangls[T, 1], Triangls[T, 2]) 
 - STriangle(P, Triangls[T, 1], Triangls[T, 3]) 
 - STriangle(P, Triangls[T, 2], Triangls[T, 3])) < 0.0001; 
end; 
function PointInFigure(P : pType) : Boolean; begin PointInFigure := PointItTriangle(P, 1) or PointItTriangle(P, 2); end; 
var P : pType; 
begin 
Write('Enter X: '); ReadLn(P.X); 
Write('Enter Y: '); ReadLn(P.Y); 
Write(PointInFigure(P)); 
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

Это что за каша? Отформатируйте код хотя бы.

И используйте тег [CODE] (значок # ) для сохранения форматирования и подсветки кода в сообщении. Кнопка Правка снизу справа.

[777pro777]

type pType = record X, Y : Real; end; 
const Triangls : array [1..2, 1..3] of pType = (((X:0; Y:3), (X:-3; Y:-2), (X:3; Y:-2)), ((X:0; Y:-3), (X:-3; Y:2), (X:3; Y:2))); 
function LenOtr(A, B : pType) : Real; begin LenOtr := Sqrt((A.X-B.X)*(A.X-B.X)+(A.Y-B.Y)*(A.Y-B.Y)); end; 
function STriangle(A, B, C : pType) : Real; begin STriangle := Sqrt((LenOtr(A, B)+LenOtr(A, C)+LenOtr(B, C))*(-LenOtr(A, B)+LenOtr(A, C)+LenOtr(B, C))*(LenOtr(A, B)-LenOtr(A, C)+LenOtr(B, C))*(LenOtr(A, B)+LenOtr(A, C)-LenOtr(B, C))) / 4; end; 
function PointItTriangle(P : pType; T : Byte) : Boolean; begin PointItTriangle := Abs(STriangle(Triangls[T, 1], Triangls[T, 2], Triangls[T, 3]) - STriangle(P, Triangls[T, 1], Triangls[T, 2]) - STriangle(P, Triangls[T, 1], Triangls[T, 3]) - STriangle(P, Triangls[T, 2], Triangls[T, 3])) < 0.0001; end; 
function PointInFigure(P : pType) : Boolean; begin PointInFigure := PointItTriangle(P, 1) or PointItTriangle(P, 2); end; 
var P : pType; 
begin 
Write('Enter X: '); ReadLn(P.X); 
Write('Enter Y: '); ReadLn(P.Y); 
Write(PointInFigure(P)); 
end.

[Serge_Bliznykov]

OFFTOP

кстати, всем интересующимся темой могу сообщить,
что автор темы решает задачу, описанную в теме:

Задание: "Составить программу, печатающую значение TRUE, если точка с координатами (x, y) принадлежит закрашенной област

[Ghost of Night]

Отформатировать это не значит всё в одну строку вбить!!!

type pType = record 
 X, Y : Real; 
end; 

const 
 Triangls : array [1..2, 1..3] of pType = (((X:0; Y:3), (X:-3; Y:-2), (X:3; Y:-2)), 
                                                         ((X:0; Y:-3), (X:-3; Y:2), (X:3; Y:2))); 

function LenOtr(A, B : pType) : Real;
begin 
 LenOtr := Sqrt((A.X-B.X)*(A.X-B.X)+(A.Y-B.Y)*(A.Y-B.Y));
end; 

function STriangle(A, B, C : pType): Real; 
begin 
 STriangle := Sqrt( (LenOtr(A, B) + LenOtr(A, C) + LenOtr(B, C) ) * 
                     ( -LenOtr(A, B) + LenOtr(A, C) + LenOtr(B, C) ) *
                     ( LenOtr(A, B) - LenOtr(A, C) + LenOtr(B, C) ) * 
                     ( LenOtr(A, B) + LenOtr(A, C) - LenOtr(B, C))) / 4; 
end;
 
function PointItTriangle(P: pType; T: Byte) : Boolean; 
begin 
 PointItTriangle := Abs(STriangle(Triangls[T, 1], Triangls[T, 2], Triangls[T, 3]) -
                       STriangle(P, Triangls[T, 1], Triangls[T, 2]) - 
                       STriangle(P, Triangls[T, 1], Triangls[T, 3]) - 
                       STriangle(P, Triangls[T, 2], Triangls[T, 3])) < 0.0001; 
end; 

function PointInFigure(P: pType): Boolean;
begin
  PointInFigure := PointItTriangle(P, 1) or PointItTriangle(P, 2);
end; 

var 
 P: pType; 

begin 
 Write('Enter X: ');
 ReadLn(P.X); 
 Write('Enter Y: ');
 ReadLn(P.Y); 
 Write(PointInFigure(P)); 
end.

Хотя бы как-то так. Плюс комментарии к коду не помешали бы.