Заданная правая половина симметричного замкнутого базового контура

const
X:M=(-2,-1,0,1,2);     //Çàäàþ êîíñòàíòó( òîáòî ïðèñâàþþ X-ñó - 5 äîâ³ëüíèõ åëåìåíò³â ìàñèâó
 
Var               //Îïèñóþ
    i:integer;
    Y:M;  //Y-êó ïðèñâàþþ çíà÷åííÿ Ìàñèâó.
    S,S0,Sx,Sy,Xc,Yc,Xw,Yw:real;
begin             //Ãîëîâíèé begin
  for i:=1 to 10 do
    begin            //begin öèêë
     y[i]:=(1+abs(x[i]))*(2-abs(x[i]));    //Çàäàþ äîâ³ëüíó ïðÿìó ç êîîðäèíàòàìè X òà Y
    end;           //ʳíåöü öèêëó
  for i:=2 to High(M) do
    begin                   //begin öèêë
     S0:=(x[i-1]*y[i])-(x[i]*y[i-1]);
     Xc:=(x[i-1]+x[i])/3;
     Yc:=(y[i-1]+y[i])/3;
     Sx:=Sx+S0*Yc;
     Sy:=Sy+S0*Xc;
     S:=S+S0;
    end;      //ʳíåöü öèêëó
 
   Xw:=Sy/S;     //Ïðèñâàþþ çíà÷åííÿ
   Yw:=Sx/S;           //Ïðèñâàþþ çíà÷åííÿ
   S:=abs(0.5*S);       //Ïðèñâàþþ çíà÷åííÿ
 
   Writeln('PLOSHA= ', S:1:2);       //Âèâîäþ
   Writeln('Novui kontur z koodinatamu: ', 'X=', Xw:1:2,' Y=',Yw:1:2);   //Âèâîäþ
   Readln;
 end.   //main end
 
 {P.S - Çàäà÷êà äóæå òÿæêà) Òîìó çàñòîñóâàâ ôîðìóëó Ãð³íà
  ³ç íàøî¿ Ëàáîðàòîðíî¿ ðîáîòè ¹16  }