Игра угадай число Опции

[Zeon]

Как мою игру можно "украсить"?

Код

Program Ygadaika;
var i,n,d:byte;
Begin
    Randomize;
    d:= random (9);
   for i:= 1 to 3 do
   begin
     Write ('Угадай число '); Readln (n);
     if n = d then  break;
      if n < d then
      Writeln ('Загаданное больше!!!')
     else
     if n > d then
      Writeln ('Загаданное меньше!!!')
   end;
  if n<>d then
      Write ('Не угадали число',d,'!') else
      Writeln ('Вы угадали с ',i,'-й попытки');
  readln;
  end.

Сообщение отредактировано: volvo - 5.01.2005 1:04

[-Андрей-]

Народ, кто нибудь может эту игру чем нибудь приукрасить? добавить какие нибудь фишки ..левелы, там заставки или еще что нибудь.. очень нужно так как нам задали как раз сделать такую. Очень надеюсь что поможете

Спасибо. Андрей.