Заданы координаты трех Вершин треугольника (x1, y1), (х2, y2), (x3, y3). найти его площадь.
НАЙТИ ПО ПРОГРАММЕ ПАСКАЛЬ! ПОДРОБНО ПОЖАЛУЙСТА

VarS,X1,X2,X3,Y1,Y2,Y3:real;BeginWrite('(x1, y1) = ');Read(X1,Y1);Write('(x2, y2) = ');Read(X2,Y2);Write('(x3, y3) = ');Read(X3,Y3);S:=Abs(1/2*((X1-X3)*(Y2-Y3) - (X2-X3)*(Y1-Y3)));WriteLn('S = ',S);End.