Что можно нарисовать на миллиметровке и составьте программу надо

Я нарисовала "мой любимый 10 "а" класс".
Program klass
Uses Crt;
begin
TextBackCround (red);
Clrscr;
Goto XY (30;12);
TextColor (yellow);
writelu ('мой любимый 10 "А" класс');
delay (1000);
END.