Найдите ошибку в программе, !

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.

yuliyanefedova    2   06.12.2019 16:53    1