МПЭ [РТФ, Андреев, 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.