В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются

uses crt;
     const n=100;
     type
     TVector = array [1..n] of integer;
      var
      B: TVector;
      procedure VvodMas;
      var
      i: integer;
      begin
      for i:=1 to n do B[i] := random(100);
      end;
      function LongVector(x1,y1,x2,y2: integer): real;
      begin
      LongVector := sqrt(sqr(x2-x1)+sqr(y2-y1));
      end;
      function UravPrjam(x,x1,y1,x2,y2: integer): real;
      begin
      if x2<>x1
      then UravPrjam := (((x-x1)*(y2-y1))/(x2-x1))+y1
      else UravPrjam := x;
      end;
      function RavnobedTreug(x1,y1,x2,y2,x3,y3: integer): boolean;
      var
     d1,d2,d3: real;
     begin
     RavnobedTreug := false;
     d1 := LongVector(x1,y1,x2,y2);
     d2 := LongVector(x1,y1,x3,y3);
     d3 := LongVector(x2,y2,x3,y3);
     if (d1=d2)or(d1=d3)or(d2=d3)
     then RavnobedTreug := true;
     end;
     function Treug(x1,y1,x2,y2,x3,y3: integer): boolean;
     var
     py1,py2: real;
     x: integer;
     begin
     Treug := true;
      x := random(100);
      py1 := UravPrjam(x,x1,y1,x2,y2);
      py2 := UravPrjam(x,x2,y2,x3,y3);
      if py1=py2 then Treug := False;
      end;
       procedure ProvAr;
      var
       i,j,m: integer;
       begin
       for i:= 1 to n do
       for j:= 3 to n do
       for m:= 5 to n do
       if odd(i)and odd(j)and odd(m) then
       if (i<j)and(j<m) then
       if Treug(a[i],a[i+1],a[j],a[j+1],a[m],a[m+1]) then
       if RavnobedTreug(a[i],a[i+1],a[j],a[j+1],a[m],a[m+1]) then
       writeln('(',a[i],'-',a[i+1],',',a[j],'-',a[j+1],',',a[m],'-',a[m+1],')');
       end;
       begin
       randomize;
      clrscr;
      VvodMas;
     ProvAr;
     readln;
    end.

Реки Азово-Кубанской равнины невелики и мелководны. Берега их зарастают тростником и рогозом. Вода содержит много солей и отличается плохим вкусом. В жаркую погоду водная гладь может покрыться водорослями, тиной. Питание рек в основном дождевое. Основная проблема обмеление степных рек. В отличие от рек Азово-Кубанской равнины, левые притоки Кубани в своём верхнем течении это типичные горные реки. В нижнем течении реки приобретают равнинный характер. Высокий уровень воды наблюдается в период таяния в горах ледников и снежников. Осенью и зимой реки мелеют. Обильные осадки могут вызвать паводки

Согласно современным представлениям, формирование Солнечной системы началось около 4,6 млрд лет назад с гравитационного коллапса небольшой части гигантского межзвёздного молекулярного облака. Большая часть вещества оказалась в гравитационном центре коллапса с последующим образованием звезды — Солнца. Вещество, не попавшее в центр, сформировало вращающийся вокруг него протопланетный диск, из которого в дальнейшем сформировались планеты, их спутники, астероиды и другие малые тела Солнечной системы.

Газопылевое облако, в котором сформировались Солнце и ближайшие к нему звёзды, возникло, возможно, в результате взрыва сверхновой звезды массой примерно 30 масс Солнца, после чего в космос попали тяжёлые и радиоактивные элементы. В 2012 году астрономы назвали эту сверхновую Коатликуэruen — в честь ацтекской богини[1].