Реализация random и randomize (2014-2015)

[Alexey Sidnev]

Необходимо предложить собственные реализации функций random и randomize, которые выполняют функционал аналогичный этим функция в Pascal.

[kaba...@gmail.com]

Если из программы убрать Randomize, то каждый раз при запуске будут генерироваться одни и те же числа

var a,i:integer;
begin
randomize;
while i<7 do begin
a:=random(50);
writeln(a);
i:=i+1;
end;
readln;
end.

Функция Random определяет диапазон случайных чисел

[Alexey Sidnev]

Это верно. Однако, необходимо представить программный код функций Random и Randomize, которые бы выполняли действия аналогичные этим функциям в Pascal (можно предложить вариант на псевдокоде).