Нарисовать данный узор в PascalABC

1) Опрятный мальчик, опрятно одет. Учится на 4-ки и 5-ки.
2) Высокий мальчик с сильными и мускулистыми руками, ногами.
3)Любой зверь, например: котик, который поранил лапку, собака с вывихнутой челюстью и т.д.
4)Моя квартира просторная, в ней есть три комнаты, ванна, кухня, туалет и кладовка.Соседние квартиры тоже 3-ёх комнат, но есть и с двумя, но тоже большие.
Я взял отличную и новую книгу в библиотеке. Она не была порвана и была интересной.
Прямоугольная штучка, которая может проигрываться.
7) Я живу в большом городе, рядом с моим городом расположен один такого же размера, а остальные населённые пункты были меньше.

#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;

int main()
{
    int a[12];

    for(int i = 0; i < 12; i++)
    {
        a[i] = rand() % 21;

        cout << a[i] << ' ';
    }
    cout << endl;

    int temp;
    for(int i = 0, j = 11; i < j; i++, j--)
    {
        temp = a[i];
        a[i] = a[j];
        a[j] = temp;
    }

    for(int i = 0; i < 12; i++)
    {
        cout << a[i] << ' ';
    }
    cout << endl;

   return 0;
}