Нельзя преобразовать тип tuple к real.

program t1;
var a,b,c,s,x1,x2,x3,y1,y2,y3: real;
begin
write('введите a,b,c форма: a(x1,y1)');
read (a,b,c);
a: =(x1,y1);
b: =(x2,y2);
c: =(x3,y3);
s: =1/4*sqrt((a+b+c)*(a+b-c)(a+c-b)(b+c-a));
writeln ('площадь треугольника равна ',s: 7: 3);
end.