Program triangle;var ax,bx,cx,ay,by,cy:integer;begin Writeln('Введите координату А по Х'); Readln(ax); Writeln('Введите координату B по Х'); Readln(bx); Writeln('Введите координату C по Х'); Readln(cx); Writeln('Введите координату А по Y'); Readln(ay); Writeln('Введите координату B по Y'); Readln(by); Writeln('Введите координату C по Y'); Readln(cy); Writeln('Площадь треугольника равна ', 0.5*((ax-cx)*(by-cy)-(bx-cx)*(ay-cy)));end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.