program BretschneidersFormula;

uses crt;

type
  vertice = record
      x:integer;
      y:integer;
    end;
var
  infile,outfile:text;
  x:integer;
  letters:string;
  points: array['A'..'T'] of vertice;
  a,b,c,d,p,q,area: real;

begin
  points['A'].x:=1; points['A'].y:=1;
  points['B'].x:=-1; points['B'].y:=2;
  points['C'].x:=-2; points['C'].y:=-1;
  points['D'].x:=2; points['D'].y:=-2;
  points['E'].x:=2; points['E'].y:=2;
  points['F'].x:=-2; points['F'].y:=3;
  points['G'].x:=-3; points['G'].y:=-3;
  points['H'].x:=1; points['H'].y:=-3;
  points['I'].x:=3; points['I'].y:=3;
  points['J'].x:=-1; points['J'].y:=4;
  points['K'].x:=-4; points['K'].y:=-2;
  points['L'].x:=3; points['L'].y:=-5;
  points['M'].x:=4; points['M'].y:=5;
  points['N'].x:=-4; points['N'].y:=5;
  points['O'].x:=-4; points['O'].y:=-5;
  points['P'].x:=4; points['P'].y:=-5;
  points['Q'].x:=2; points['Q'].y:=4;
  points['R'].x:=-4; points['R'].y:=1;
  points['S'].x:=-2; points['S'].y:=-4;
  points['T'].x:=1; points['T'].y:=-1;
  assign(infile,'DATA11.txt');
  reset(infile);
  assign(outfile,'OUT11.txt');
  rewrite(outfile);
  for x:=1 to 5 do
    begin
      readln(infile,letters);
      a:=sqrt(sqr(points[letters[2]].x - points[letters[1]].x) + sqr(points[letters[2]].y - points[letters[1]].y));
      b:=sqrt(sqr(points[letters[3]].x - points[letters[2]].x) + sqr(points[letters[3]].y - points[letters[2]].y));
      c:=sqrt(sqr(points[letters[4]].x - points[letters[3]].x) + sqr(points[letters[4]].y - points[letters[3]].y));
      d:=sqrt(sqr(points[letters[1]].x - points[letters[4]].x) + sqr(points[letters[1]].y - points[letters[4]].y));
      p:=sqrt(sqr(points[letters[3]].x - points[letters[1]].x) + sqr(points[letters[3]].y - points[letters[1]].y));
      q:=sqrt(sqr(points[letters[4]].x - points[letters[2]].x) + sqr(points[letters[4]].y - points[letters[2]].y));
      area:=sqrt(4*p*p*q*q-sqr(b*b+d*d-a*a-c*c)) / 4;
      writeln(outfile,area:0:1);
    end;
  close(infile);
  close(outfile);
end.