найти площадь треугольника, используя функцию

[ele29]

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

[McFrey]

вот мой код

var 
Ax, Ay, Bx, By, Cx, Cy, a, b, c, p, s: real; 

function dlina(x1, y1, x2, y2: real): real; 
begin 
dlina := sqrt(sqr(x1 - x2) + sqr(y1 - y2)); 
end; 

begin 
write('Vvedite koordinaty: ');readln(Ax, Ay, Bx, By, Cx, Cy); 
a := dlina(Ax, Ay, Bx, By); 
b := dlina(Bx, By, Cx, Cy); 
c := dlina(Cx, Cy, Ax, Ay); 
s:=0;
p := (a + b + c) / 2; 
s := sqrt(p * (p - a) * (p - b) * (p - c)); 
writeln(s:0:2); 
readln; 
end.

[McFrey]

а вот ваш код, исправленный

program zadasha31;
var x1,y1,x2,y2,x3,y3:integer; S:real;

function PL(a1,b1,a2,b2,a3,b3:integer):real;
var d1,d2,d3,p:real;
begin
d1:=sqrt(sqr(a2-a1)+sqr(b2-b1));
d2:=sqrt(sqr(a3-a2)+sqr(b3-b2));
d3:=sqrt(sqr(a3-a1)+sqr(b3-b1));
p:=(d1+d2+d3)/2;
PL:=1/2*sqrt(p*(p-d1)*(p-d2)*(p-d3));
end;

begin
writeln('vvedite x1,y1,x2,y2,x3,y3');
readln(x1,y1,x2,y2,x3,y3);
S:=PL(x1,y1,x2,y2,x3,y3);
writeln('s=',s:2:2);
readln;
end.

если что-то не понятно, пишите в аську(см. в профиле)...т.к. это простейшие задачки их можно и по коду легко разобрать

[ele29]

спасибо большое