11 lines
170 B
Text
11 lines
170 B
Text
real Seed;
|
|
func Random;
|
|
[Seed:= Floor(Mod(Seed*Seed/1e3, 1e6));
|
|
return fix(Seed);
|
|
];
|
|
|
|
int N;
|
|
[Seed:= 675248.;
|
|
for N:= 1 to 5 do
|
|
[IntOut(0, Random); ChOut(0, ^ )];
|
|
]
|