Нужна завтра сдавать ! pascal abc даны два треугольника abc и def с координатами вершин (ax,ay), (bx,by), (cx,cy), (dx,dy), (ex,ey), (fx,fy). составьте алгоритм или программу, определяющую, какой из треугольников имеет большую площадь.

Без проверки полагаем, что по заданным координатам точек можно построить треугольники. //pascalabc.net 3.0, сборка 1111 type   point=record   x,y: double   end; function trianglesquare(a,b,c: point): double; begin   result: =0.5*abs(a.x*(b.y-c.y)+b.x*(c.y-a.y)+c.x*(a.y-b.y)) end; procedure getpoint(c: char; var a: point); begin   write('введите координаты точки ',c,': ');   readln(a.x,a.y) end; var   a: array['a'..'f'] of point;   i: 'a'..'f';   s1,s2: double; begin   for i: ='a' to 'f' do getpoint(i,a[i]);   s1: =trianglesquare(a['a'],a['b'],a['c']);   s2: =trianglesquare(a['d'],a['e'],a['f']);   if s1> s2 then writeln('площадь первого треугольника больше')   else       if s2> s1 then writeln('площадь второго треугольника больше')       else writeln('площади треугольников равны') end. тестовое решение: введите координаты точки a: -4 3.7 введите координаты точки b: -6.3 0 введите координаты точки c: 10.2 5.93 введите координаты точки d: 7.143 8.1 введите координаты точки e: -6 -3 введите координаты точки f: 7.4 -5.7 площадь второго треугольника больше

Var a: integer; begin read(a); if ((a> =2) and (a< =5)) or ((a> =-1) and (a< =1)) then writeln('yes') else writeln('no'); end. если число не целое, то вместо integer напиши real