12 lines
244 B
Text
12 lines
244 B
Text
|
program RandomNumberDevice;
|
||
|
|
var
|
||
|
|
byteFile: file of byte;
|
||
|
|
randomByte: byte;
|
||
|
|
begin
|
||
|
|
assign(byteFile, '/dev/urandom');
|
||
|
|
reset (byteFile);
|
||
|
|
read (byteFile, randomByte);
|
||
|
|
close (byteFile);
|
||
|
|
writeln('The random byte is: ', randomByte);
|
||
|
|
end.
|