Составьте пожалуйсто в Pascal ABC сложную(красивую с многими элементами и прочим прочим что б всего было много) граффическую программу!

Вот пожалуйста,  моя игра .  Угадай число.

program k2game;uses crt;var i,a,n:integer;begin textbackground(14); clrscr; gotoxy(33,2); textcolor(4); writeln('Игра "Угадай число!" '); delay(400); textcolor(5); gotoxy(23,4); writeln('1. Компьютер загадывает число от 0 до 9.'); delay(840); textcolor(5); gotoxy(23,5); writeln('2. Ваша задача - угадать это число!'); delay(840); textcolor(5); gotoxy(23,6); writeln('3. Не забывайте, что у вас всего две попытки!'); delay(640); textcolor(5); gotoxy(23,7); writeln('4. Если же вы ошиблись, то компьютер даст вам подсказку.');

randomize; a:=random(10); n:=0; textcolor(0); repeat gotoxy(23,9); writeln('Пожалуйста введите число.'); gotoxy(23,10); readln(i); if (i <> a) then begin n:=n+1; gotoxy(23,11); if (i>a) then writeln('Подсказка: Загаданное число меньше.') else writeln('Подсказка: Загаданное число больше.') end; until ((i=a) or (n=2));

gotoxy(23,13); textcolor(2); if (i=a) then writeln('Поздравляю! Вы выйграли!') Else writeln('К сожалению,н

о вы проиграли!');

end.