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

[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

[Zeon]

а можно по точнее как-нибудь???