uses
  SysUtils;

var
  a, b, c, a2, b2, c2: integer;

begin
  randomize;
  a := random(10);
  b := random(10);
  c := random(10);
  randomize;
  a2 := random(10);
  b2 := random(10);
  c2 := random(10);
  writeln('(', a, ', ', b, ', ', c, '), (', a2, ', ', b2, ', ', c2, ')');

  Sleep(1000); // спустя секунду значение таймера наверняка изменится

  randomize;
  a := random(10);
  b := random(10);
  c := random(10);
  writeln('(', a, ', ', b, ', ', c, ')');
end.