По координатам вершин треугольника найдите его площадь и периметр

program zadanie;
uses crt;
Var a:array[1..10] of integer;
i,kol,s,p:integer; sr,geom:real;
Begin
Write ('Vvedite  massiv: ');
for i:=1 to 10 do read(a[i]);
s:=0;p:=1;kol:=0;
for i:=1 to 10 do
begin
if a[i]>0 then s:=s+a[i]; kol:=kol+1;
sr:=s/kol;
if a[i]>0 then P:=p*a[i];
geom:=sqrt(p);
end;
Writeln('Srednee arifmeticheskoe: ',sr);
write('Srednee geometricheskoe: ',geom);
end.

uses crt;
var
a:array[1..100,1..100]of integer;
i,j,n,max:integer;
y:array[1..100]of real;
begin clrscr;
randomize;
write('n=');
read(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if (a[i,j]>max)and(i=j) then max:=a[i,j];
writeln;
writeln('max=',max);
writeln;
for i:=1 to n do
for j:=1 to n do
if i=j then
 begin
  y[i]:=a[i,j]/max;
  write(y[i]:2:2,'  ');
 end;
readkey;
end.

uses crt;
var x_1,x_2,y_1,y_2,x_3,y_3:integer;
s,p,a,b,c:real;
begin
clrscr;
writeln('Vvedite koordinaty vershin:');
readln(x_1,y_1,x_2,y_2,x_3,y_3);
a:=sqrt(sqr(x_1-x_2)+sqr(y_1-y_2));
b:=sqrt(sqr(x_2-x_3)+sqr(y_2-y_3));
c:=sqrt(sqr(x_1-x_3)+sqr(y_1-y_3));
if (a>=b+c) or (b>=a+c) or (c>=a+b) then writeln('Òðåóãîëüíèêà íåò!')else
 begin
  p:=a+b+c;
  s:=sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
  writeln('Ïëîùàäü: ',s);
  writeln('Ïåðèìåòð: ',p);
 end;
readln
end.

program vad2211;
uses crt;
var
   a:array[1..100,1..100] of integer;
   p:array[1..100] of longint;
   i,j,m,n,min:integer;
begin
 clrscr;
 randomize;
 repeat
  write('Ðàçìåð ìàòðèöû NxM: ');
  readln(n,m);
 until (n in [1..100]) and (m in [1..100]);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(21)-10;
     write(a[i,j]:4);
    end;
  writeln;
  end;
 writeln;
 for i:=1 to m do
  begin
   p[i]:=1;
   for j:=1 to n do
    p[i]:=p[i]*a[j,i];
  end;
 min:=1;
 for i:=1 to m do
  if p[i]<p[min] then min:=i;
 writeln('Ñòîáëåö ñ ìèíèìàëüíû ïðîèçâåäåíèåì ýëåìåíòîâ: ',min);
 readln;
end.

program tri
var a:array[1..20,1..20] of real;
    b:array[1..20] of real;
    max:real;
    n,i,j:integer
begin
{*ввод массива*}
writeln("BBeguTe pa3mep MaccuBa");
readln(n);
writeln("BBeguTe MaccuB");
for i:=1 to n do
    for j:=1 to n do
        read(a[i,j]);
{*выбор диагональных элементов*}
for i:=1 to n do
begin
    b[i]:=a[i,i];               {*запись диагонали в массив*}
    if b[i]>max then max:=b[i]; {*нахождение максимального*}
end;
for i:=1 to n do
begin
    b[i]:=b[i]/max;     {*деление на максимальный элемент*}
    writeln(b[i]:0:4);  {*вывод массива*}
end;

program chetire
var a:array[1..20] of real;
    s,n:integer;
begin
{*ввод массива*}
writeln("BBeguTe KoJIJIu4ecTBo eJIeMeHToB MaccuBa");
readln(n);
writeln("BBeguTe eJIeMeHTbI MaccuBa");
for i:=1 to n do
    read(a[n]);
{*подсчет*}
s:=1;
while((s<=n)and(a[s]>0)) 
    s:=s+1;
s:=s-1;
writeln(s);
end.

while((s<=n)and(a[s]>0)) 
    s:=s+1;
s:=s-1;
writeln(s);

s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+1;
writeln('Кол-во положительных элементов: ',s);