Изменить код

[MrFrost]

Здравствуйте, помогите пожалуйста изменить программу,чтобы она вычисляла только площадь треугольника, который задан координатами своих вершин и не используя функцию.

Var x1,x2,x3,y1,y2,y3:real;
a,b,c,p1,p2,s:real;
function p(a1,a2,b1,b2:real):real;
begin
p:=sqrt(sqr(a2-a1)+sqr(b2-b1))
end;
begin
writeln('vvedite koordinati: x1,x2,x3,y1,y2,y3');
readln(x1,x2,x3,y1,y2,y3); 
a:=p(x1,x2,y1,y2);
b:=p(x1,x3,y1,y3);
c:=p(x2,x3,y2,y3);
p1:=a+b+c;
p2:=p1/2;
s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
writeln('p=', p1:6:3);
writeln('s=',s:6:3)
end.