fork download
  1. uses
  2. SysUtils;
  3.  
  4. var
  5. a, b, c, a2, b2, c2: integer;
  6.  
  7. begin
  8. randomize;
  9. a := random(10);
  10. b := random(10);
  11. c := random(10);
  12. randomize;
  13. a2 := random(10);
  14. b2 := random(10);
  15. c2 := random(10);
  16. writeln('(', a, ', ', b, ', ', c, '), (', a2, ', ', b2, ', ', c2, ')');
  17.  
  18. Sleep(1000); // спустя секунду значение таймера наверняка изменится
  19.  
  20. randomize;
  21. a := random(10);
  22. b := random(10);
  23. c := random(10);
  24. writeln('(', a, ', ', b, ', ', c, ')');
  25. end.
Success #stdin #stdout 0s 432KB
stdin
Standard input is empty
stdout
(6, 5, 5), (6, 5, 5)
(8, 3, 5)