program Wuerfel;

uses crt;

var wert: byte;

begin
clrscr;
randomize;
wert:=random(6)+1;
write('Zufällige Zahl zwischen 1 und 6: ');
writeln(wert);
repeat until keypressed;
end.


Das ist ein Programm für Turbo-Pascal, womit man den Computer würfeln lassen kann. Ziemlich sinnlos, passt aber zum Stichwort.