برنامه تولید اعداد تصادفی به روش میان مربعی

[rames]

سلام.
میخواستم اگه کسی بلده برتامه ای بنویسه که با استفاده از یک تابع (که دارای آرگومان های x0 و تعداد اعداد می باشد)با روش میان مربعی اعداد تصادفی تولید کند.در ضمن x0 را باید داشته با شیم .مثالی از روش میان مربعی
X0=5497
(x0)2=(5497)2 =30217009 r0=0/2170
(x1)2=(2170)2 =4708900 r1=0/7089