4 курс / ЗащИнф / лаб-р-защ-4 / datchik

     program Datchic;
     uses WinCrt,Windos;

     var
          G0,A,G,C,i:longint;
          Y:char;
     const
          M:longint=65536;
     label 1;
     begin
       i:=0;
     writeln('            программа - датчик случайных чисел ');
     writeln('                     G(i+1)=(A*G(i)+C) mod 65535');
     1:
     writeln('введите A,C и G(0)  (числа до 65535)');
     readln(A,C,G0);
     i:=0; G:=G0;
     repeat
            if i=1000 then G0:=G;
            G:=(A*G+C) mod M;
            i:=i+1;
            
     until (G=G0)or(i=65535);
     writeln;
     writeln('длина псевдослучайной последовательности чисел ',i);
     writeln('продолжить ? Y - да');
     Y:=readkey; if Y='y' then goto 1;
     writeln('конец программы')
     end.