Создать программу, которая будет проверять попало ли случайно выбранное из отрезка [5; 155] целое число в интервал (25; 100) и сообщать результат на экран. примеры работы программы: число 113 не содержится в интервале (25,100) число 72 содержится в интервале (25,100) число 25 не содержится в интервале (25,100) число 155 не содержится в интервале (25,100)
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.