Программа

FUNCTION Random(Module:integer):integer; { Функция возврата случайного числа }
  Const RndIsStarted:boolean=FALSE;
         { Флаг определения начала последовательности случайных чисел }
        Rnd:real=0;  { Случайное число }
  Var Md:integer; { Переменная - верхняя граница случайных чисел }
      Base:integer;  { Базовое число последовательности случайных чисел }
  Begin
    if not RndIsStarted { Проверка флага начала последовательности }
    then begin
           Write('Введите произвольное целое число '); { Вывод приглашения }
           ReadLn(Base);  { Ввод базового числа последовательности }
           Base:=Abs(Base);
           RndIsStarted:=TRUE;  { Подъем флага }
           while Base>0 do
           begin
             Rnd:=Round(Rnd+Cos(Base mod 10/9*2*Pi)+1);
             Base:=Base div 10
           end;
         end;
    Md:=Module;
    while Md>0 do
    begin
      Rnd:=Rnd+Cos(Md mod 10/9*2*Pi);
      Rnd:=Rnd-Round(Rnd);
      Md:=Md div 10
    end;
    Random:=Round(Abs(Rnd-Round(Rnd))*Module)
  End;
VAR F:file of char;
    i:longint;
    Ch:char;
const Hi=10;
var Tab:array[0..Hi-1] of longint;
BEGIN
{  Assign(F,'HLAM');
  Rewrite(F);  }
  for i:=1 to 1024*10 do
  begin
    if i mod 1024=0 then WriteLn(i div 1024);
{    Ch:=Chr(Random(256)); }
    Inc(Tab[Random(Hi)])
{    Write(F,Ch) }
  end;
{  Close(F)      }
  For i:=0 to Hi-1 do Write(Tab[i],' ')
END.