Перечислите модули очень надо​

Моя сім’я — це тато, мама, я і моя молодша сестра Наталка. У нас, як і у будь-якій іншій сім’ї, є свої традиції. Наприклад, щонеділі ми всі разом їздимо в гості до бабусі й дідуся. Бабуся до нашого приїзду готує смачний обід, пече печиво. Після обіду ми з сестрою допомагаємо бабусі прибрати зі столу. Потім ми сидимо у вітальні та розмовляємо. Часто дідусь або бабуся розповідають якісь цікаві історії зі свого життя.

Щоліта ми з батьками обов’язково виїжджаємо на природу. У нас є своє улюблене місце для відпочинку на березі річки, біля лісу. Ми приїжджаємо туди на тиждень і ставимо намет. Днем засмагаємо на сонечку, купаємося, прогулюємося лісом. Часто тато ловить у річці рибу, а мама тут же готує її на вогнищі. Я дуже люблю вечірні посиденьки біля багаття з батьками та сестрою.

Звичайно ж, ми завжди разом святкуємо Новий рік і наші дні народження. У ці свята до нас в гості приходять не тільки бабуся з дідусем, а й інші родичі.

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

Объяснение:

Var
a:array[1..20] of integer;
i,n,min,max,s:integer;
begin
randomize;
s:=0;
writeln ('Введи кол-во элементов в массиве');
readln(n);
for i:=1 to n do
a[i]:=random(35)-10;
for i:=1 to n do
if i mod 2 = 0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do
if i mod 2 >0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s:=s+a[i];
writeln ('Сумма членов кратных 3 или 5 = ',s); 
min:=a[1]; 
max:=a[1]; 
for i:=2 to n do begin
 if a[i]<min then min:=a[i]; 
if a[i]>max then max:=a[i];
 end; 
writeln ('Максимум=',max); 
writeln('Минимум=',min); 
end.