Помогите решить задачку по информатике за 8класс. Пожалуйста.

Ответ:                                 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.