Нельзя преобразовать тип 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.
Ошибка типов данных. a := (x1, x2) - объединение значений х1 и х2 в кортеж. Кортеж - неизменяемый тип данных, содержащий в себе несколько переменных или объектов, что то на подобии массива. Ты не можешь умножить кортеж на кортеж.
Объяснение: