The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

type

P_array = array[1..4] of integer;

var

Rand_Index : integer;

Primes : P_array;

begin

Primes [1] := 2;

Primes [2] := 3;

Primes [3] := 5;

Primes [4] := 7;

randomize;

Rand_index := 4*random +1;

writeln (Primes[Rand_Index]);

end.

mlmcc