program UgadayChislo;
{$mode delphi}{$apptype console}
uses SysUtils;
var secret, guess, tries: Integer;
begin
  Randomize;
  secret := Random(100) + 1;
  tries := 0;
  WriteLn('Я загадал число от 1 до 100.');
  repeat
    Write('Ваш вариант: '); ReadLn(guess);
    Inc(tries);
    if guess < secret then WriteLn('Больше!')
    else if guess > secret then WriteLn('Меньше!')
    else WriteLn('Верно! Попыток: ', tries);
  until guess = secret;
  ReadLn;
end.