Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Программа угадай число, паскаль.

program Task_1;

  {программа угадай число паскаль}
var
  b_Comp, b_User: byte;
begin
  randomize;
  b_Comp := random(8);
  Writeln('программа угадай число от 0 до 8.');
  Writeln('Введите число:');
  Read(b_User);
  while b_Comp <> b_User do
  begin
    Write('Введите число: ');
    Readln(b_User);
    if b_User > b_Comp then
      Writeln('Много')
    else
    if b_User < b_Comp then
      Writeln('Мало')
    else
      Writeln('Угадал');
  end;

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Программа угадай число, паскаль.