Program sumS;
uses crt;
var 
ax,ay,bx,by,cx,cy,mx,my,nx,ny,px,py:integer;
S1,S2,Sum:real;
begin
write( 'Введите координату х вершины А:');
readln(ax);
write( 'Введите координату y вершины А:');
readln(ay);
write( 'Введите координату х вершины B:');
readln(bx);
write( 'Введите координату y вершины B:');
readln(by);
write( 'Введите координату х вершины C:');
readln(cx);
write( 'Введите координату y вершины C:');
readln(cy);
write( 'Введите координату х вершины M:');
readln(mx);
write( 'Введите координату y вершины M:');
readln(my);
write( 'Введите координату х вершины N:');readln(nx);
write( 'Введите координату y вершины N:');
readln(ny);
write( 'Введите координату х вершины P:');
readln(px);
write( 'Введите координату y вершины P:');
readln(py);
writeln( 'Координаты треугольника ABC: A(' ,ax,';',ay,') ,B('  ,bx,';',by,') ,C('  ,cx,';',cy,')'); 
writeln( 'Координаты треугольника MNP: M(' ,mx,';',my,') ,N('  ,nx,';',ny,') ,P('  ,px,';',py,')'); 
S1:=abs(((ax-cx)*(by-cy)-(bx-cx)*(ay-cy))/2);
writeln('Площадь треугольника ABC=',S1);
S2:=abs(((mx-px)*(ny-py)-(nx-px)*(my-py))/2);
writeln('Площадь треугольника ABC=',S2);
Sum:=s1+s2;
writeln('Сумма площадей=',sum);
readln;end.