Составьте код в паскале -10 ≤ х ≤ 10 50

Var  x: integer;  begin
x:=random(-30,30);
writeln('x = ', x);
if (x>=-10) and (x<=10) then  writeln('Значение x принадлежит отрезку [-10,10].')    else writeln('x не принадлежит отрезку [-10,10].');
end.

я не уверен что именно вам нужно