begin
  var randomNumber := Random(500) + 1;
  Println('Число загадано. Удачи!');
  
  var attempts: integer := 1;
  while true do
  begin
    var getNumber := ReadInteger('Введи число:');
    
    if getNumber = 0 then
    begin
      Println('Вы проиграли. Число было', randomNumber); 
      break
    end
    else if getNumber < randomNumber then
      Println('Не угадал. Число больше')
    else if getNumber > randomNumber then
      Println('Не угадал. Число меньше')
    else
    begin
      Println('Ты угадал! Это число', randomNumber);
      Println('Тебе потребовалось попыток:', attempts);
      break;
    end;
    attempts += 1;
  end;
end.