Пишите язык, что ли. Хотите получить рано или поздно программу на brainfuck-e?

Я напишу на Паскале.

function dist(x1,y1,x2,y2: real): real;

begin

   dist := sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

end;

var x1,x2,x3,y1,y2,y3,a,b,c,s:real;

begin

   readln(x1,y1,x2,y2,x3,y3);

   a:=dist(x1,y1,x2,y2);

   b:=dist(x1,y1,x3,y3);

   c:=dist(x2,y2,x3,y3);

   s:=(a+b+c)/2;

   s:=sqrt(s*(s-a)*(s-b)*(s-c));

   writeln(s)

end.