Составьте алгоритм построения изображения ёлочки​

1) переход от порядка к хаосу (уменьшение информации):
- извержение вулкана: количество информации больше, когда горные породы находятся в спокойном состоянии, уменьшение информации выражается в том, что происходит  выброс газов, горячего воздуха, пепла, разрушение горных пород, лава изливается;
- ураган: частички песка и пыли поднимаются в воздух, уменьшается количество песка на поверхности земли - т.е. уменьшается количество информации
2) Переход от хаоса к порядку:
- муравьи строят муравейник (в хаотичном состоянии находятся иголки хвойных деревьев, мелкие палочки),
- сбор меда пчелами в соты;
- птицы для перелета собираются в стаи.
3. Для сообщения: полезность, достоверность, краткость, актуальность для данного момента, независимость (от мнения и взглядов составителя сообщения)
4. Для знаний: понятность, актуальность, научность, точность, полнота излагамых знаний.
5. Автоматизированная линия на машиностроительном предприятии по сборке из деталей машины. Системы управления в современных автомобилях - контроль за скоростью движения. Системы управления самолетами: определение оптимального воздушного пути (траектории полета), система навигации - автоматическое предотвращение аварий и .д.
6. Сообщения с 1 битом информации:
- Да / нет (на любой вопрос, который требует данного ответа)
- выпал орел или решка
- из двух цветов достали красный или черный
- человек живет в одном из двух подъездов (в 1 или во 2) 

Const
  n1=15;
  n2=10;
  n3=12;
type
  V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
{ ввод данных в массив }
var i:integer;
begin
  Writeln('Вводите по одному ',n,' элементов массива ',s);
  for i:=1 to n do Readln(a[i])
end; 

procedure M_out(var a:V; n:integer; c:char);
{ выводит элементы, начинающиеся с указанного символа }
var i:integer;
begin
  Writeln('*** Слова на букву ',c,' ***');
  for i:=1 to n do
    if a[i][1]=c then Writeln(a[i]);
  Writeln
end; 

var
  s1,s2,s3:V;
begin
  M_in('S1',s1,n1);
  M_in('S2',s2,n2);
  M_in('S3',s3,n3);
  M_out(s1,n1,'В');
  M_out(s2,n2,'Ц');
  M_out(s3,n3,'А');
end.