Напишите на языке Паскаль программу для игры "Угадай число" (промежуток от 1 до 8)

Предыдущий
вопрос Следующий
вопрос

program GuessNumber;

var

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

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

begin

 randomize;

 gnum := random(8) + 1;

 repeat

    write('Введите число (от 1 до 8): ');

   readln(num);

   writeln;

   if gnum <> num then writeln('Не угадали, попробуйте ещё раз');

 until gnum = num;

 writeln('Вы угадали, это число ', gnum);

end.