var Seed: 0..65535; I: integer; function Random: real; begin { Random } Seed := (Seed * 13077 + 6925) mod 32768; Random := Seed / 32768.0 end { Random }; begin Seed := trunc(time * 1000.0); for I := 1 to 25 do writeln(trunc(Random * 10.0) + 1) end.