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

[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 5:04

[-Андрей-]

Archon

ой эт ты конечно замудрил серьозно ))))) мне не поверят что эт я сделал ))

мне бы вот хотелось чтобы там было меню типа графическое и уровни сложности типа ))) ну нам так препод посоветовал )) Сможете помочь? ну только чтобы было не очень сложно написано так как он мне не поверит если будет слишком серьозно сделано )))

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