МПЭ [РТФ, Андреев, 3 семестр] / rand

program rand;
type
   m = array[0..8] of integer;
var
   mas : m;
   i, endValue, randValue : integer;
begin
    randomize;

    for i := 0 to 8 do begin
        mas[i] := 0;
    end;

    endValue := 0;
    writeln('');
    while (endValue < 8) do begin
        randValue := random(8) + 1;
        if(mas[randValue] = 0) then begin
           mas[randValue] := 1;
           endValue := endValue + 1;
           write(randValue, ', ');
        end;
    end;

end.