const
  a = 20;
  b = 93;

label flag;
begin
  var x := Random(a, b);
  var count := 0;
  flag:
  count += 1;
  var n := ReadLnInteger('Введите число в интервале [' + a + '..' + b + ']:');
  WriteLn(n > x ? '>> Больше' : n < x ? '>> Меньше' : '>> Молодец');
  if n <> x then goto flag;
  WriteLn('Кол-во попыток: ', count);
end.