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