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

//Pascal ABC.NET v3.0 сборка 1111

function ran():integer;
 begin
  randomize;
  ran:=random(1,6);
 end;