Буду благодарен

[007Andrey]

Добавьте описание класса TFourAngl поля для значений углов четырехугольника и метод для вычисления угла. В основной части программы реализуйте вычисления всех углов.

Program Geometry;
Type TKoord = record
X, Y: real
End;
Type TFourAngl = class
P: array[0..3] of TKoord;
L: array[0..5] of real; 
Procedure Init; 
Procedure Line; 
Function Square: real; 
End;
Type TKvadrat = class(TFourAngl)
Function Square: real; 
End;
Var FourAngl: TFourAngl;
Kvadrat: TKvadrat;
Procedure TFourAngl.Init;
Var i: integer;
Begin
For i:=0 To 3 Do
Begin
Write('Input X', i, ':'); Readln(P[i].X);
Write('Input Y', i, ':'); Readln(P[i].Y)
End
End;
Procedure TFourAngl.Line;
Var i: integer;
Begin
For i:=0 To 3 Do
L[i]:=sqrt(sqr(P[i].X-P[(i+1) mod 4].X)+
sqr(P[i].Y-P[(i+1) mod 4].Y));
L[4]:=sqrt(sqr(P[0].X-P[2].X)+ sqr(P[0].Y-P[2].Y));
L[5]:=sqrt(sqr(P[1].X-P[3].X)+ sqr(P[1].Y-P[3].Y))
End;
Function TFourAngl.Square: real;
Var pp1, pp2: real;
Begin
Line;
pp1:=(L[0]+L[1]+L[4])/2; pp2:=(L[2]+L[3]+L[4])/2;
Square:=sqrt(pp1*(pp1-L[0])*(pp1-L[1])*(pp1-L[4]))+
sqrt(pp2*(pp2-L[2])*(pp2-L[3])*(pp2-L[4]))
End;
Function TKvadrat.Square: real;
Begin
Line;
Square:=sqr(FourAngl.L[0])
End;
Begin
FourAngl:=TFourAngl.Create; 
Kvadrat:=TKvadrat.Create; 
FourAngl.Init; 
FourAngl.Line; 
With FourAngl Do
Begin
If (L[0]=L[1]) and (L[1]=L[2]) and (L[4]=L[5])
Then Writeln('Это квадрат, площадь= ', Kvadrat.Square)
Else Writeln('Это не квадрат, площадь = ', Square)
End
End.