Описать класс Triangle

f (a=sqrt(sqr(b)+sqr(c))) or (b=sqrt(sqr(a)+sqr(c))) or (c=sqrt(sqr(b)+sqr(a))) then
showmessage ('Треугольник прямоугольный') 
else showmessage ('Треугольник не прямоугольный');

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
TTriangle = class
private
function GetPerimeter: double;
procedure SetPerimeter(Value: double);
public
a, b, c: double;
property Perimeter: double read GetPerimeter write SetPerimeter;
function Square: double;
constructor Create(NewA, NewB, NewC: double);
end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TTriangle }
 
constructor TTriangle.Create(NewA, NewB, NewC: double);
begin
a := NewA;
b := NewB;
c := NewC;
end;
 
function TTriangle.GetPerimeter: double;
begin
 result := a + b + c;
end;
 
 
 
procedure TTriangle.SetPerimeter(Value: double);
begin
 a := Value / 3;
b := Value / 3;
c := Value / 3;
 
end;
 
function TTriangle.Square: double;
var
p: double; 
begin
 
p := (a + b + c) / 2;
result := sqrt(p*(p-a)*(p-b)*(p-c));
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
t: TTriangle;
begin
t := TTriangle.Create(10, 11, 12);
t.Perimeter := (StrToInt(Edit1.Text));
ShowMessage('Стороны треугольника:'+FloatToStrF(t.a,ffFixed,0,1)+';'+FloatToStrF(t.b,ffFixed,0,1)+';'+FloatToStrf(t.c,ffFixed,0,1)+' Периметр: '+FloatToStr(t.Perimeter));
 
end;
end.

TRectangle = class
  private
    
    function GetIsRectangled: Boolean;
  public
    
    property IsRectAngled: Boolean read GetIsRectangled;
end;
 
 
function TRectangle.GetIsRectangled: Boolean;
begin
  Result := <тут логическая формула признака прямоугольности...>
end;