даны координаты трех точек на плоскости. найти площадь треугольника, с вершинами в этих точках.

для решения написать процедуру "rast", рассчитывающую расстояние между двумя точками с 5-ю параметрами: 1 параметр х1, второй y1, третий x2, четвертый y2, пятый найденное расстояние между двумя точками.

формат ввода:

в первой строке - координаты первой точки (x, y) - два вещественных числа через пробел, во второй строке - координаты второй точки, в третьей - координаты третьей точки.

формат вывода:

площадь треугольника с точностью до 2-х знаков после запятой.

пример входных данных

1.00 1.00
2.00 2.00
1.00 2.00
пример выходных данных

0.50

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.