В игре <<Русское лото» из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90. Напишите 5 программу, которая выводит наугад первые 5 выигрышных номеров.
Доработайте программу <<Русское лото» так, чтобы все 5 значений гарантированно были бы разными (используйте разные диапазоны).(в паскале)

1) Дополненная

program Hello;

var

   a : array[1..90] of integer;

   i, x : integer;

begin

   randomize();

 for i:= 1 to 90 do

 begin

   a[i] := i;

 end;

 for i:= 1 to 5 do

 begin

   x := random(90) + 1;

   if a[x] <> 0 then

   begin

       writeln(a[x]);

       a[x] := 0;

   end;

 end;

end.

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}