Question

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

Answer 1

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

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