Разветвляющиеся процессы (Delphi)

[Yakovleva Mary]

Задание: Даны координаты трёх точек на плоскости. Составить программу, которая определяла бы вид треугольника ( равносторонний, равнобедренный, разносторонний, прямоугольный, тупоугольный, остроугольный), если данные координаты вершин позволяют его построить.
Как составить данную программу? Заранее спасибо!

[__anatoly]

var
Ax, Ay, Bx, By, Cx, Cy: integer;
aq, bq, cq: integer;

function ravnostoronniy : boolean;
begin
if (aq = bq) and (aq = cq) and (cq = bq) then
result := true
else
result := false;
end;

function ravnobedrenniy : boolean;
begin
if (aq = bq) or (aq = cq) or (cq = bq) then
result := true
else
result := false;
end;

function raznostoronniy : boolean;
begin
if (aq <> bq) and (aq <> cq) and (cq <> bq) then
result := true
else
result := false;
end;

function pryamougolniy : boolean;
begin
if (aq + bq = cq) or (aq + cq = bq) or (cq + bq = aq) then
result := true
else
result := false;
end;

function tupougolniy : boolean;
begin
if (aq + bq < cq) or (aq + cq < bq) or (cq + bq < aq) then
result := true
else
result := false;
end;

function ostrougolniy : boolean;
begin
if (aq + bq > cq) and (aq + cq > bq) and (cq + bq > aq) then
result := true
else
result := false;
end;

begin
Ax := 1; Ay := 2; // исходные данные
Bx := 5; By := 0;
Cx := 6; Cy := 1;

aq := sqr(Cx - Bx);
bq := sqr(Cx - Ax);
cq := sqr(Bx - Ax);

if ravnostoronniy then WriteLn('ravnostoronniy');
if ravnobedrenniy then WriteLn('ravnobedrenniy');
if raznostoronniy then WriteLn('raznostoronniy');
if pryamougolniy then WriteLn('pryamougolniy');
if tupougolniy then WriteLn('tupougolniy');
if ostrougolniy then WriteLn('ostrougolniy');
ReadLn;
end.