Напишите код программы, которая будет вычислять периметр фигуры

Планета Земля кожного року проходить один і той самий шлях навколо Сонця. Кожного року відбувається зміна лір року: зима, весна, літо, осінь, а потім знову зима. Кожну добу день змінюється ніччю, а ніч - днем.

Циклічно змінюються фази Місяця: спочатку Місяць молодий, потім він росте, потім досягає повного Місяця, потім починає зменшуватися, і потім все починається спочатку.

Циклічні процеси відбуваються і в вашому житті. Кожного робочого дня ви встаєте, прибираєте постіль, робите фіззарядку, вмиваєтеся, снідаєте, складаєте портфель і йдете до школи. Кожного тижня уроки в школі відбуваються за одним і тим же самим порядком, який визначається розкладом, хоча, звичайно ж, можуть бути й непередбачені ситуації.

Водій веде автобус тю маршруту, кожного разу проїжджаючи одні й ті самі зупинки в однаковому порядку. Світлофор на перехресті налаштований так, що він через однакові проміжки часу запалює зелене світло, потім жовте, потім червоне, потім знову жовте, потім знову зелене і так далі.

Объяснение:

const

 n = 10;

 ar:array[1..n] of integer = (-2, -1, 2, 3, 4, 5, -5, -6, 2, 5);

var

 i:integer;

 is_first_pol:boolean;

 raz_pol:integer;

begin

 

 raz_pol:=0;

 is_first_pol:=true; // флаг того, что найденное положительное число - первое

 

 for i:=1 to n do begin

   

   if (ar[i] > 0) then

     

     if (is_first_pol) then begin

       // если найденное полодительное число - первое, то

       raz_pol:=ar[i]; // в нашу разницу заносим это число

       is_first_pol:=false; // меняем флаг

     end

     else raz_pol:=raz_pol - ar[i]; // иначе вычисляем разницу

 

 end;

 

 writeln(raz_pol);

end.