Напишите функцию, которая моделирует бросание двух игральных кубиков (на каждом может выпасть от 1 до 6 очков). (Используйте генератор псевдослучайных чисел)

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function Dice2():=Rec(Random(1,6),Random(1,6));

// тестовый пример - 10 бросков
begin
  for var i:=1 to 10 do Writeln(Dice2)
end.

Тестовое решение:
(6,6)
(1,6)
(5,6)
(1,1)
(1,5)
(6,5)
(1,4)
(5,6)
(1,3)
(2,6)