Решите пожалуйста Срочно 1,2,3
Первый лёгкий ты просто делай это через раундом. Begin Write(random); Вот таким способом.
А 2 и 3