Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в «Спортлото 5 из 36» — Pascal(Паскаль)

Для заполнения каждой карточки спортлото необходимо получить набор из пяти псевдослучайных чисел. К этим числам предъявляются два требо- вания:

  1. числа должны находиться в диапазоне 1..36;
  2. числа не должны повторяться.
 Program Lotto;
     var
         nb, k: Set of 1..36;
         kol, l, i, n: Integer;
     begin
        Randomize;
        WriteLn('ВВЕДИ kol');
        ReadLn(kol);
        nb:=[1..36];
        for i:=1 to kol do
          begin
           k:=[];
           for l:=1 to 5 do
             begin
               repeat
                 n:=Random(36)
               until (n in nb) and not (n in k);
               k:=k+[n];
               Write(n:4)
             end;
           WriteLn
          end
         end.

Поделитесь своим мнением или задайте вопрос