Опишите объект «обыкновенная дробь» с методами «НОД числителя и знаменателя», «сокращение» - Pascal ABC

Type Natur=l..32767;
Frac=Record P: Integer; Q: Natur End;
Drob=Object A: Frac;
Procedure NOD(Var C: Natur);
Procedure Sokr;
Procedure Stepen(N: Natur; Var C: Frac); End;
 
Type Natur=1..MaxInt;
Frac=Record P: Integer; Q: Natur End;
{Описание объектного типа}
Drob=Object
A: Frac;
Procedure Vvod; {ввод дроби}
Procedure NOD(Var C: Natur); {НОД}
Procedure Sokr;
Procedure Stepen(N: Natur; Var C: Frac);
Procedure Print; {вывод дроби}
End;
 
{Описания методов объекта} 
Procedure Drob.NOD; 
Var M,N: Natur; 
Begin M:=Abs(A . P);
N:=A .Q;
While M<>N Do 
If M>N
Then If M Mod N<>0 Then M:=M Mod N Else M:=N 
Else If N Mod M<>0 Then N:=N Mod M Else N:=M; C:=M 
End;
 
Procedure Drob.Sokr; 
Var N: Natur;
Begin If A. P<>0 Then Begin
Drob.NOD(N);
A . P:=A . P Div N; A . Q:=A . Q Div N
End
Else A . Q:=1 
End;
 
Procedure Drob.Stepen;
Var I: Natur;
Begin
C.P:=1; C.Q:=1;
For I:=l To N Do Begin 
C.P:=C.P*A.P; 
C.Q:=C.Q*A.Q 
End;
End;
 
Procedure Drob.Vvod;
Begin
Write('Введите числитель дроби:1); ReadLn(A.P);
Write('Введите знаменатель дроби:');ReadLn(A.Q) ;
End;
 
Procedure Drob.Print;
Begin WriteLn(A.P,'/',A.Q)
End;
 
{Основная программа}
Var Z: Drob; F: Frac;
Begin
Z.Vvod; {ввод дроби}
Z.Print; {печать введенной дроби}
Z.Sokr; {сокращение введенной дроби}
Z. Print; {печать дроби после сокращения}
Z.Stepen(4, F); {возведение введенной дроби в 4-ю степень} 
WriteLn(F.P,'/',F.Q)
End.

Type BaseType=Double;
FourAngle=Object
х1,y1,x2,y2,x3,y3,x4,y4, A,B,C,D,D1,D2, 
Alpha,Beta,Gamma,Delta, P,S: BaseType;
Procedure Init; 
Procedure Storony; 
Procedure Diagonali;
Procedure Angles; 
Procedure Perimetr; 
Procedure Ploshad; 
Procedure PrintElements; 
End;
 
Parall=Object(FourAngle) 
Procedure Storony; 
Procedure Perimetr;
Procedure Ploshad; 
End; 
 
Romb=Object(Parall)
Procedure Storony;
Procedure Perimetr;
End; 
 
Kvadrat=Object(Romb)
Procedure Angles; 
Procedure Ploshad; 
End;
 
Procedure FourAngle.Init;
Begin
Write('Введите координаты вершин заданного четырехугольника:'); 
ReadLn(xl, yl, х2, у2,хЗ,уЗ,х4,у4); 
End;
 
Procedure FourAngle.Storony;
Begin 
A:=Sqrt(Sqr(x2-x1)+Sqr(y2-y1)); 
B:=Sqrt(Sqr(x3-x2)+Sqr(y3-y2) ) ;
C:=Sqrt(Sqr(x4-x3)+Sqr(у4-уЗ));
D:=Sqrt(Sqr(x4-xl)+Sqr(y4-yl));
End;
 
Procedure FourAngle.Diagonali;
Begin
D1:=Sqrt(Sqr(x1-x3)+Sqr(y1-уЗ)); 
D2:=Sqrt(Sqr(x2-x4)+Sqr(y2-y4)); 
End; 
 
Procedure FourAngle.Angles;
Function Ugol(Aa,Bb,Cc: BaseType):BaseType;
Var VspCos, VspSin: BaseType; 
Begin
VspCos:=(Sqr(Aa)+Sqr(Bb)-Sqr(Cc))/(2*Aa*Bb) ;
VspSin:=Sqrt(1-Sqr(VspCos));
If Abs(VspCos)>1e-7 Then 
Ugol:=(ArcTan(VspSin/VspCos)+Pi*Ord(VspCos<0))/Pi*180
Else Ugol:=90
End; { Function Ugol(Aa,Bb,Cc: BaseType):BaseType;}
Begin 
Alpha:=Ugol(D,A,D2);
Beta:=Ugol(A,B,Dl);
Gamma:=Ugol(B,C,D2);
Delta:=Ugol(C,D,Dl);
End;{ Procedure FourAngle.Angles;}
 
Procedure FourAngle.Perimetr;
Begin
P:=A+B+C+D 
End; 
 
Procedure FourAngle.Ploshad; 
Var Perl, Per2: BaseType;
Begin 
Perl:=(A+D+D2)/2; 
Per2:=(B+C+Dl)/2;
S:=Sqrt(Perl*(Perl-A)*(Perl-D)*(Perl-D2))
+Sqrt(Per2*(Per2-B)*(Per2-C)*(Per2-Dl)) 
End;
 
Procedure FourAngle.PrintElements; 
Begin WriteLn('Стороны:',А:10:6,В:10:6,С:10:6,
D:10:6,'Углы:',Alpha:10:4,Beta:10:4, Gamma:10:4,Delta:10:4,
'Периметр:', P:10:6,'Площадь:',S:10:6,'Диагонали:', Dl:10:6,D2:10:6) 
End;
 
Procedure Parall.Storony;
Begin 
A:=Sqrt(Sqr(x2-xl)+Sqr(y2-yl)); 
B:=Sqrt(Sqr(x3-x2)+Sqr(y3-y2) ) ; 
C:=A; D:=B
End;
 
Procedure Parall.Perimetr;
Begin P:=2*(A+B) 
End;
 
procedure Parall.Ploshad; 
Var Per: BaseType; 
Begin 
Per:=(A+D+D2)/2;
S:=2*Sqrt(Per*(Per-A)*(Per-D)*(Per-D2)) 
End;
 
procedure Romb.Storony;
Begin
A:=Sqrt(Sqr(x2-xl)+Sqr(y2-yl));
B:=A; C:=A; D:=A 
End;
 
Procedure Romb.Perimetr; 
Begin 
P:=2*A 
End; 
 
Procedure Kvadrat.Angles;
Begin 
Alpha:=90; 
Beta:=90; 
Gamma:=90;
Delta:=90;
End;
 
Procedure Kvadrat.Ploshad; 
Begin S:=Sqr(A) 
End;
 
{Основная программа} 
Var obj: Kvadrat; 
Begin
obj.Init;
obj.Storony;
obj.Diagonali;
obj.Angles;
obj.Perimetr;
obj.Ploshad;
obj.PrintElements 
End.