Заданы координаты трех вершин треугольника (х1,у1), (х2,у2), (х3,у3) . найдите его периметр и площадь. нужно написать в паскале

Program q2;var x1,x2,x3,y1,y2,y3,a,b,c,P,S: real;beginreadln(x1);readln(x2);readln(x3);readln(y1);readln(y2);readln(y3);a=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));b=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));c=sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));P=a+b+c;S=sqrt((0,5*P)*(0,5*P-a)*(0,5*P-b)*(0,5*P-c));writeln(P);writeln(S);end.