РЕБЯТА, УМОЛЯЮ ПОМОГИТЕ ДАМ СКОЛЬКО УГОДНО БАЛЛОВ.

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программка не работает, обновите версию!

uses NumLibABC;

begin
  var (x1,y1):=ReadReal2('Координаты x,y точки 1 через пробел:');
  var (x2,y2):=ReadReal2('Координаты x,y точки 2 через пробел:');
  var (x3,y3):=ReadReal2('Координаты x,y точки 3 через пробел:');
  // строим векторы
  var a:=new Vector(x2-x1,y2-y1); Write('a: '); a.Println;
  var b:=new Vector(x3-x2,y3-y2); Write('b: '); b.Println;
  var c:=new Vector(x3-x1,y3-y1); Write('c: '); c.Println;
  var (la,lb,lc):=(a.ModV,b.ModV,c.ModV); // длины векторов-сторон
  if (la+lbgt;lc) and (la+lcgt;lb) and (lb+lcgt;la) then begin
    // можно построить треугольник, отыскиваем скалярные творения
    var L:=new Listlt;(string,real)gt;;
    L.Add(('ab = ',a*b));
    L.Add(('ac = ',a*c));
    L.Add(('bc = ',b*c));
    L:=L.OrderByDescending(t-gt;t[1]).ToList; // сортировка
    foreach var t in L do Writeln(t[0],t[1])
  end
  else Writeln('Точки не могут быть верхушками треугольника')
end.

Пример
Координаты x,y точки 1 через пробел: -5 2.4
Координаты x,y точки 2 через пробел: 0 6
Координаты x,y точки 3 через пробел: 5 -2.15
a: 5 3.6
b: 5 -8.15
c: 10 -4.55
bc = 87.0825
ac = 33.62
ab = -4.34