Даны координаты вершин двух треугольников. Определить, какой из них имеет наибольшую площадь.

program z;
uses crt;
const n=8;
var a:array[1..n,1..n]of integer;
i,j,sum:integer
begin
clrscr;
sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
a[i,j]:=random(10);{массив заполняю случайными числами, если на до вручную меняй на readln(a[i,j]);}
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j]<0 then sum:=sum+a[i,j];
end;
end;
writeln('sum=',sum);
readln;
end.

program z;
uses crt;
const n=20;
var a:array[1..20] of integer;
    i,kolvo:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(n);
write(a[i],' ');
end;
writeln;
kolvo:=0;
for i:=1 to n-1 do
if a[i]<a[i+1] then kolvo:=kolvo+1;
writeln('kolvo=',kolvo);
readln;
end.

uses
    CRT;
var
   n,z:integer;
   ch:char;
function sum(s:integer):integer;
var
   t,k,num:integer;
begin
     t:=s;
     k:=s;
     num:=0;
     while k>=1 do
           begin
                t:=t mod 10;
                if t mod 2=0 then
                                 num:=num+t;
                k:=k div 10;
                t:=k;
           end;
     sum:=num;
end;
 
BEGIN
     repeat
           clrscr;
           write('Введите число=');
           read(n);
           z:=sum(n);
           writeln('Сумма четных цифр=',z);
           write('Выполнить еще раз?[y/n]:');
           read(ch);
     until ch='n';
END.