Сделайте пожалуйста. Кто может.Придумайте свои способы получения случайных чисел.

СПАСИБО

в pascalABC.netvara,b:integer;beginread(a);random(a);b:=a;write(b);end.

1) Берем лист бумаги, разлиновываем на квадратики, в каждый вписываем числа, начиная от 1. Кидаем на листик монетку. В какой квадрат упадет, то число и выбираем.2) Берем несколько игральный кубиков. Кидаем, подсчитываем сумму выпавших очков.3) Берем колоду 36 карт, вытаскиваем карту наугад. Туз 1, валет 2, дама 3, король 4, 10- 5, карты от 6 до 9 - соответственно 6-9.