PASCAL + MACRO11 (УКНЦ-ДВК).

[Alex_K]

Хотелось бы найти RANDOM.PAS из поставки Паскаля.

>TYP [PASRT]RANDOM.PAS
var
  Seed: 0..65535;
  I: integer;

  function Random: real;
  begin { Random }
    Seed := (Seed * 13077 + 6925) mod 32768;
    Random := Seed / 32768.0
  end { Random };

Hunta, а из какой поставки Паскаля у вас этот файл?