program Losovani1;

var i, tah :integer;

begin
  Randomize;
  for i:=1 to 9 do
  begin
    tah:=random(10);
    write(tah, ', ');
  end;
  tah:=random(10);
  write(tah);
  readln();
end.
