По координатам трех вершин некоторого треугольника и углу (в градусах) между ними найти длину третьей стороны и площадь этого треугольника — Pascal(Паскаль)

var
  AC, AB, BC, S, r: real;
  x1, x2, x3, y1, y2, y3: integer;

begin

  write('vveditj x1= ');
  read(x1);
  write('vveditj x2= ');
  read(x2);
  write('vveditj x3= ');
  read(x3);
  write('vveditj y1= ');
  read(y1);
  write('vveditj y2= ');
  read(y2);
  write('vveditj y3= ');
  read(y3);
  write('vveditj kyt r= ');
  read(r);

  AB := sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1));
  writeln(AB);
  AC := sqrt(sqr(x3 - x1) + sqr(y3 - y1));
  BC := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
  S := AB + AC * sin(r);
  writeln('s=', S:2:4);
  readln;

end.