Используя функцию random (X), получите числа в диапазонах: от 1 до 10, от –10 до +10, от 50 до 100



Используя функцию random (X), получите числа в диапазонах: от 1 до 10, от –10 до +10, от 50 до 100.    
program zad_3_1_nica;
var Rand: array[1..10] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 10 do begin
      Rand[i]:=1+random(10);
      write (Rand[i], '; ');
   end;
end.

program zad_3_2_nica;
var Rand: array[1..20] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 20 do begin
      Rand[i]:=-10+random(21);
      write (Rand[i], '; ');
   end;
end.

program zad_3_3_nica;
var Rand: array[1..50] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 50 do begin
      Rand[i]:=50+random(51);
      write (Rand[i], '; ');
   end;
end.