Mode:
Duration:
1
2
3
4
5
6
7
8
9
MODULE DiceRoll;
IMPORT InOut;
VAR i, roll: INTEGER;
BEGIN
FOR i := 1 TO 3 DO
roll := RANDOM(6) + 1;
InOut.WriteString("Roll "); InOut.WriteInt(i,0); InOut.WriteString(": "); InOut.WriteInt(roll,0); InOut.WriteLn;
END;
END DiceRoll.Coding works best on desktop or with an external keyboard.