function RndWord (var Y : integer) : integer;
(********************************************)
(*Конгруэнтный генератор случайного слова.*)
(*Перед первым вызовом надо присвоить переменной Y целое и в дальнейшем его не изменять.*)
(********************************************)
begin
Y := 12869 * Y + 6925;
RndWord := Y;
Exit
end; (* RndWord *)