Описать назначение переменной d в программе и какую задачу решает вся программа

Program Rabotay_mozg;
Const n=8;
Var X:array[1..n] of integer;
m, k, i, d:integer;
begin {начало основной программы}
{1 блок программы}
For i:=1 to n do read(X[i]);
{2 блок программы}
m:=X[1];
k:=1;
For i:=2 to n do
if x[i]>m then begin
m:=x[i];
k:=i;
end;
{3 блок программы}
d:=0;
For i:=1 to k-1 do
if X[i] mod 2 = 0 then d:=d+1;
{4 блок программы}
Write ('d=',d);
end.

Ну может так : С слов мы можем рассказать о счастье каким образом? Это легко с тобой произошла счастье и ты рассказываешь словами о нём тем самым слово это источник счастья!                                                                           Или:Неужели Вам не доставило бы счастье, если бы та, кого Вы любите, сказала бы Вам "Люблю тебя". Или же врач после длительной и сложной операции кого-нибудь из близких Вам людей выходит из операционной и говорит: "Всё успешно". Неужели Вы не будете счастливы? 
Вот Вам и источники счастья для начала. Развейте тему дальше и подумайте о других аналогичных ситуациях.

поставь лайк

Объяснение:

1

Стачивание подреза

М

Машина 97-А кл. ОЗЛМ

2

Заутюживание подреза

У

Утюг УТП-2ЭП ОЗЛМ

3

Обметывание подреза

СМ

Машина 851 кл. ПМЗ

4

Обметывание боковых срезов

СМ

Машина 851 кл. ПМЗ

Обработка задней половинки юбки

5

Стачивание вытачек

М

Машина 97-А кл. ОЗЛМ

6

Заутюживание вытачек

У

Утюг УТП-2ЭП ОЗЛМ

7

Обметывание боковых срезов

СМ

Машина 851 кл. ПМЗ

Обработка пояса

8

Заутюживание пояса пополам с прокладыванием клеевой прокладки

П

Пресс ППУ-1

«Легмаш»

9

Стачивание боковых срезов

М

Машина 97А кл. ОЗЛМ

10

Подрезание швов в углах

Р

Ножницы

11

Вывертывание пояса

Р

Спецколышек

12

Приутюживание пояса

У

Утюг Сs-392 «Паннония»

13

Стачивание боковых срезов оставляя место для застежки

М

Машина 97-А кл.ОЗЛМ

14

Разутюжить боковые срезы

Утюг Сs-392 «Паннония»

15

Притачивание застежки-молнии

М

Машина 852 кл. ПМЗ

с при К

16

Притачивание пояса

М

Машина 97-А кл.ОЗЛМ

17

Обметывание низа юбки

СМ

Машина 851 кл. ПМЗ

18

Подшивание низа юбки

Р

Окончательная отделка изделия

19

Обметывание петли

СМ

Полуавтомат 72702 -101кл. «Минерва»

20

Чистка юбки и пришивание пуговицы

Р

21

Окончательная влажно-тепловая обработка юбки