Var x1,x2,x3,y1,y2,y3,i:integer;
d: array [1..4] of real;
temp:real; begin
readln(x1,y1,x2,y2,x3,y3);
d[1]:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
d[2]:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
d[3]:=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
If (d[1]=d[2]) and (d[2]=d[3]) and (d[3]=d[1]) then
d[4]=d[1]*d[1]*sqrt(3)/4;
else d[4]:=0;
while true do
begin
for i:=1 to 4 do
if d[i+1]<d[i] then
begin
temp:=d[i];
d[i]:=d[i+1];
d[i+1]:=temp;
end; //for
if (d[1]<d[2])and(d[2]<d[3])and(d[3]<d[4]) then false;
end; //while
writeln (d[1],d[2],d[3],d[4]);
end.
Проверь и добавь текстуху, я Паскаль не запускал :D).