Как сделать рандом в паскале