Как посадить 15 деревьев в 5 рядов , чтобы в каждом ряду было по 4 дерева изобразить на рисунке

Не удалось вместить фото но я думаю так ● ● ● ● ● ● ● ● ● ● ● ● ● ● ● если ● это дерево

Type   mus = record     name: string;     style: string;     dur: real;   end; var   a: array[1..10000] of mus;   i,n: integer;   nam, st: string;   duration: real; begin   writeln('введите количество композиций:   ');   readln(n);   for i: =1 to n do   begin     write('название: ');     read(nam);     write(' стиль: ');     read(st);     write(' длительность:   ');     read(duration);     a[i].name: =nam;     a[i].style: =st;     a[i].dur: =duration;   end; end.

Текст ниже программы организует ввод данных и запись их в типизированный файл. для завершения ввода в качестве названия надо ввести символ "звездочка" ( * ). type   song=record   name,style: string[20];   duration: real   end; var   f: file of song;   r: song; begin   assign(f,'mysongs.dat');   rewrite(f);   writeln('вводите данные в порядке "наименование, стиль, длительность');   writeln('для окончания ввода укажите символ * вместо наименования');   repeat       readln(r.name);       if r.name< > '*' then begin           readln(r.style);           readln(r.duration);           write(f,r)       end   until r.name='*';   close(f) end.