Var i,a,day :integer; Dat: array[1..7] of integer;
begin
Dat[1]:=14;
Dat[2]:=10;
Dat[3]:=0;
Dat[4]:=15;
Dat[5]:=0;
Dat[6]:=15;
Dat[7]:=10;
day:=1;
a:=Dat[1];
for i:=2 to 7 do begin
a:=Dat[i];
day:=i;
write(day);
end;
end.

я не знаю как это решать. решите .

ответ:Ойыншылар алаң ортасында бір-біріне арқасымен тұратын екі топқа бөлінеді, олардың аралығы 1,5 м. Бір топқа «Күн» атауы, екінші топқа «Түн» атауы беріледі. Әр топтың өз алаңында (10—12 м) үйі бар. Мұғалім кенеттен топ атауының біреуін атайды, мысалы «Күн!» Осы топтың ойыншылары өз үйлеріне жылдам жүгіріп барады, ал басқа топ қуып жетіп, оларды ұстайды. «Ұсталған» ойыншылар басқа топқа өтеді және т.б. Ойын бірнеше рет өткізіледі, содан кейін бірдей жүгірісте (үш немесе төрт) әр топтан ұсталған ойыншылар саны саналады. Көбірек ойыншыларды ұстаған топ жеңеді.

1.Працівник більше потребує поваги, ніж хліб

2.Повага до людей є повага до самого себе.

3.Повага - це застава, що охороняє батька і матір, стільки ж і дітище, перше воно рятує від прикрощів, останнього від докорів сумління.

4.Ніхто не може бути щасливий, якщо він не користується своїм власним повагою.

5.Свідоме повагу завжди міцніше захоплення.

6.Поваги ми надаємо рівно стільки, скільки його вимагають.

7.Щоб зберегти повагу до себе, іноді необхідно брехати й обманювати.

8.Влада часу - це закон, гідний поваги.

9.Подібно до того як любов без поваги недовговічна і непостійна, так і повагу без любові холодно і немічне.

10.Повага виникає не на порожньому місці. Поважаємо ми один одного за хороші справи, благородні вчинки і приємні слова.