Подскажите, как нарисовать в программе Скретч этот геометрический орнамент???

сидерический год

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

1)котят 7

2)рыжих котят 5

3)зелоноглазых котят 3

4)котят рыжих и зеленоглазых 3

5)котят рыжих или зеленоглазых 3

6)рыжих и не зеленоглазых котят 3

7)не рыжих и не зеленоглазых 1

файл в паскале должен иметь расширение конечно же а)