Программа, загадывающая число от 0 до 10. Если пользователь его угадывает, то программа поздравляет его, а если нет, то просит попытаться ещё раз, но убавляя количество призовых баллов.

Program roulette;
uses crt;
var number, guess, bonus: byte;
begin
 clrscr;
 bonus:=10;
 randomize;
 number:=Random(11);
 writeln('Задумано целое число от 0 до 10. Угадайте!');
 writeln;
 writeln('Введите целое число от 0 до 10');
 readln(guess);
 while guess<>number do
 begin
 dec(bonus);
 writeln('Bы не угадали.');
 writeln;
 if guess>number then writeln('Ваше число меньше задуманного')
 else
 writeln('Ваше число больше задуманного');
 writeln('Попытайтесь еще раз!');
 readln(guess);
 end;
 writeln('Поздравляю! Вы угадали и набрали ', bonus,' очков');
 readln;
end.

---