Установіть відповідність між зображенням комп'ютерної графіки та об'єктів​

Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.

[Текст из сниппета]

[Припев]

Эти цепи на мне, сук, лавэ

Сотка тыщ на Black LV

Сотни сук хотят ко мне

Сотни сук хотят ко мне

Как дела? Как дела?

Это новый Cadillac

Делать деньги, делать деньги

Делать деньги, бл*ть, вот так (few-few)

[Куплет]

...

Быстрей, посмотри

Вам подарок, а мне часы

Drip на шее, всё под жопой

Мне чуть больше двадцати

[Припев]

Эти цепи на мне, сук, лавэ

Сотка тыщ на Black LV

Сотни сук хотят ко мне

Сотни сук хотят ко мне

Как дела? Как дела?

Это новый Cadillac

Делать деньги, делать деньги

Делать деньги, бл*ть, вот так (few-few)