Program r7_97;
uses crt;
const n=10;
var i:integer;
      a:array[1..n] of integer;
BEGIN
Randomize;
write('числа из интервала [75,-21]');
writeln;
for i:=1 to n do begin
 A[i]:=Random(75)-21;
 write(a[i]:4);
end;
writeln;
write('числа из интервала [79,-11]') ;
writeln;
for i:=1 to n do begin
 A[i]:=Random(79)-11;
 write(a[i]:4);
end;
writeln;
write('числа из интервала [111,-35]') ;
writeln;
for i:=1 to n do begin
 A[i]:=Random(111)-35;
 write(a[i]:4);
end;
writeln;
write('числа из интервала [141,-45]') ;
writeln;
for i:=1 to n do begin
 A[i]:=Random(141)-45;
 write(a[i]:4);
end;
writeln;
END.