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

Program q2; var x1,x2,x3,y1,y2,y3,a,b,c,P,S: real; begin readln(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.