program atstumo_skaiciavimas;
type taskas = record
x,y:real
end;


var v1, v2, v3: taskas;
ats1, ats2, ats3, ats, p : real;


function atstumas( c1, c2 : taskas) : real;
begin
atstumas := sqrt(sqr(c2.x-c1.x)+sqr(c2.y-c1.y))
end;
begin
write( 'Iveskite pirmo tasko x ir y kordinates:' );
readln( v1.x , v1.y );
write( 'Iveskite antro tasko x ir y kordinates:' );
readln( v2.x , v2.y );
ats1 := atstumas( v1, v2 );
write( 'Iveskite treciojo tasko x ir y kordinates:' );
readln( v3.x , v3.y );
ats2 := atstumas( v2, v3 );
ats3 := atstumas(v3, v1);
p := (ats1+ats2+ats3)/2;
ats := sqrt(p*(p-ats1)*(p-ats2)*(p-ats3));
writeln('trikampio plotas ', ats:4:2);
readln;
end.