{ Программа генерирует случайное число от 1 до X.
}

program RandomNumberGenerator;

var
X, randomNumber: Integer;

begin
// Запрашиваем у пользователя верхнюю границу для генерации случайного числа
write('Введите верхнюю границу для генерации случайного числа: ');
readln(X);

// Генерируем случайное число от 1 до X
randomNumber := Random(X) + 1;

// Выводим результат на экран
writeln('Случайное число от 1 до ', X, ' равно: ', randomNumber);
end.