var x1 x2 x3 y1 y2 y3 longint ans real function len x1 y1 x2 y2 longin

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var x1,x2,x3,y1,y2,y3:longint;
i,k,l,p,s,ans:real;
function len(x1,y1,x2,y2:longint):real;
begin
len:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
function vec(x1,y1,x2,y2,x3,y3:longint):longint;
begin
x3:=x3-x1;
x2:=x2-x1;
x1:=0;
y3:=y3-y1;
y2:=y2-y1;
y1:=0;
vec:=abs(x2*y3-x3*y2);
end;
begin
read(x1,y1);
read(x2,y2);
read(x3,y3);
s:=vec(x2,y2,x1,y1,x3,y3);
ans:=s/len(x2,y2,x3,y3);
if len(x1,y1,x2,y2)<ans then
ans:=len(x1,y1,x2,y2);
if len(x1,y1,x3,y3)<ans then
ans:=len(x1,y1,x3,y3);
writeln(ans:0:2);
end.