Склавиатуры вводятся координаты вершин треугольника. найти его площадь. программа с++

//microsoft vs 2017 (c++) //console application #include< iostream> using namespace std; struct coords {     double x;     double y; }; double findlen ( double x, double y, double x1, double y1) {               return sqrt(pow(x1 - x, 2) + pow(y1 - y, 2)); //теорема пифагора ( расстояние между двумя точками ) } double finds( double firstlen, double seclen, double thirdlen) {         double p = (firstlen + seclen + thirdlen) / 2;         return sqrt(p * (p - firstlen) * (p - seclen) * (p - thirdlen)); //формула герона } int main() {           coords a, b, c;               cout < < "input coords for point a : x = ";     cin > > a.x;           cout < < "\t\t\t    y = ";                                       cin > > a.y;         cout < < "input coords for point b : x = ";     cin > > b.x;           cout < < "\t\t\t    y = ";                                     cin > > b.y;           cout < < "input coords for point c : x = ";     cin > > c.x;         cout < < "\t\t\t    y = ";                                       cin > > c.y;           cout < < endl < < endl; cout < < "s for abc : "< < finds(findlen(a.x,a.y,b.x,b.y), findlen(b.x, b.y, c.x, c.y), findlen(a.x, a.y, c.x, c.y))< < endl;           system("pause"); //если не компилируется, убери эту строку          return 0; }

Var  min, i,position: integer; a: array [1..14] of integer; begin for i: =1 to 14 do begin a [i]: =random (-20,-8); end; min: =a[1]; position: =1; for i: =2 to 14 do begin if (a[i] < min) then begin min: =a[i]; position: =i; end; end; write ('массив '); for i: =1 to 14 do begin write (a [i]); write (' '); end; writeln(' '); writeln ('минимальный элемент находится на позиции: ', position); writeln ('минимальный элемент равен: ', min); end.