Написать программу для паскаля, которая по трем парам (х,у) введенных с клавиатуры координат определит, находится ли начало координат внутри треугольника, заданного этими тремя вершинами

{входит ли начало координат в треугольник } type point = record         x,y: real;       end; var s0,s: real;     pts: array [1..3] of point;     i: integer; begin { считывание координат точек}   for i: =1 to 3 do     begin       writeln('точка ',i,'   x ',' y ');       write('         ');       readln(pts[i].x,pts[i].y);   end;     { вычисляем площадь треугольника abc    через векторное произведение }   s0: =(pts[2].x-pts[1].x)*(pts[3].y-pts[1].y)  -        (pts[3].x-pts[1].x)*(pts[2].y-pts[1].y);   s0: =abs(s0); { вычисляем сумму площадей треугольников  из начала координат }   s: =abs(pts[1].x*pts[2].y - pts[2].x*pts[1].y);   s: =s+abs(pts[2].x*pts[3].y - pts[3].x*pts[2].y); { если   s > s0 , то начало координат вне треугольника }   if s> s0 then writeln('начало координат вне треугольника')   else writeln('начало координат внутри треугольника'); end. на тестовой : точка 1   x   y                  -1 -3точка 2   x   y                  -3 2точка 3   x   y                  4 3начало координат внутри треугольникаточка 1   x   y                -2 0точка 2   x   y                  -3 2точка 3   x   y                  4 3начало координат вне треугольника 

ответ:мне нужни бали

Объяснение: