Создать проект для вычисления идеального веса {идеальный вес для женщины в кг = (рост(см)*3,5/2,54-108)*0,453} {идеальный вес для мужчины в кг = (рост(см)*4,0/2,54-128)*0,453} Опишите модель решения поставленной задачи.

Var
x1, y1, x2, y2, x3, y3, a, b, c, p, s: real;
begin
readln(x1, y1, x2, y2, x3, y3);
a:=sqrt(sqr(abs(x1-x2))+sqr(abs(y1-y2)));
b:=sqrt(sqr(abs(x2-x3))+sqr(abs(y2-y3)));
c:=sqrt(sqr(abs(x1-x3))+sqr(abs(y1-y3)));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
if s=0 then write('Лежат на одной прямой') else write('Не лежат на одной прямой');
end.

Объясняю. Образуем из этих трёх точек треугольник. a, b, c - стороны треугольника. p - полу-периметр треугольника. s - площадь треугольника. Площадь вычисляется по формуле Герона. Если площадь равна нуля, значит точки лежат на одной прямой. Если нет - не лежат. 

uses

   crt;

const

    max=50;

var

  a:array[1..max,1..max] of integer;

  i,j,n,s,k:integer;

begin

    writeln('wvedite razmernost matrici');

    readln(n);

    writeln('wvedite matricu ',n,' x ',n);

    for i:= 1 to n do

        begin

             for j:= 1 to n do

                 read(a[i,j]);

        end;

    s:=0;

    k:=0;

    for i:= 1 to n do

        begin

             for j:= 1 to n do

                 if (j mod 2<>0) and (i mod 2<>0) then

                    begin

                         s:=a[i,j]+s;

                         k:=k+1

                    end;

        end;

        s:=round(s/k);

        writeln('sredne arifmet znashenie s neshetnimi indeksami ravno ', s);

readkey

end.