Сделано с рандомными числами.
program massiv; var mas:array [1..10] of real; a:real; i:byte; begin a:=0; for i:=1 to 10 do begin mas[i]:=random(10)+1; if a<mas[i] then a:=mas[i]; end; writeln(a, ' - наибольшее из чисел массива ' ); end.
x = int(input())
if x in range(1,100):
print("Число входить в проміжок")
else:
print("Число не входить в проміжок")