program GuessNumber;

var

  gnum: Integer; // загадываемое компьютером число

  num: Integer; // число от пользователя

begin

 randomize;

 gnum := random$8$ + 1;

 repeat

    write${}^{\prime }Введитечисло(от1до8){:}^{\prime }$;

   readln$num$;

   writeln;

   if gnum <> num then writeln${}^{\prime }Неугадали,попробуйтеещёра{з}^{\prime }$;

 until gnum = num;

 writeln${}^{\prime }Выугадали,эточисл{о}^{\prime },gnum$;

end.