Найдите ошибку в программе, !
program wasd;
var ab,bc,ac,x1,x2,x3,y1,y2,y3,s,p: real;
begin
writeln('введите вершину a');
readln(x1,y1);
writeln('введите вершину b');
readln(x2,y2);
writeln('введите вершину c');
readln(x3,y3);
ab: =sqrt(sqr(x2-x1)+sqr(y2-y1));
bc: =sqrt(sqr(x3-x2)+sqr(y3-y2));
ac: =sqrt(sqr(x3-x1)+sqr(y3-y1));
p: =(ab+bc+ac): 2;
s: =sqrt(p*(p-ab)*(p-bc)*(p-ac));
writeln('площадь',s);
end.
Оператором деления, вообще-то, является "/", а не ":". Там стоило написать P := (AB + BC + AC) / 2;
А еще в Паскале вывод вещественных чисел стоит делать по типу S:2:3, результат покрасивее будет