Var a,b,c: tFrac;

d: boolean;

e: integer;

begin

a:= TFrac.Create(-1,2);

writeln(a.Frac);// вывод дроби (-1/2) через свойство в формате строки

b:= TFrac.Create(3,4);

c:= a.Sub(b);

writeln(b.Frac); // вывод дроби (?) через свойство в формате строки

writeln(c.Frac);// вывод дроби (2/8 ) через свойство в формате строки

c:= a.Mul(b);

writeln(c.Frac);

c:= a.Dvd(b);

writeln(c.Frac);

c:= a.Sqr;

writeln(c.Frac);

c:= a.Rev;

writeln(c.Frac);

b:=b.Copy;

writeln(b.Frac);

d:= a.Equel(b);

writeln(d);

d:= b.Greater(a);

writeln(d);

b:=b.Rev;

writeln(b.Frac);

e:=a.GetNum;

writeln('Numerator = ',e);

e:=a.GetDenom;

writeln('Denominator = ',e);

c.Free;

a.Frac:= '-3/4';// ввод дроби через свойство в формате строки

c:= a.Add(b);

c.Reduce;

writeln(c.Frac);// вывод дроби (0/16 )через свойство в формате строки

readln;

end.