const n = 20; var x, y: array[1..n] of integer; temp,res: real; i: integer; begin randomize; for i:= 1 to n do begin x[i]:= random(20) - 10; y[i]:= random(20) - 10; end; res:=0; for i:= 3 to n do begin writeln(' Координаты треугольника', i-2, ': ', x[1]:4, y[1]:4, x[2]:4, y[2]:4, x[i]:4, y[i]:4); temp:= square(x[1], y[1], x[2], y[2], x[i], y[i]); res:=res+temp; writeln('Площадь треугольника ', i-2, ' = ', temp:10:2); writeln; end; writeln('Общая площадь равна: ',res); readln;