%Put the random numbers into an array a.

for i : 1 .. 3
put a(i)
end for

type Names/*Can be any thing not just 'Names'*/ :
   record /*Records the types for Names*/
       FirstName,LastName : string /*There can be as many identifiers*/
   end record  /*There is no end*/ /*as you want and it doesn't just */
               /*for type*/        /*have to be a string*/
var GetNames : Names /*This GetNames  has the type of the identifiers*/
    GetNames.FirstName:= "Joe" /*You should by now get what this is doing*/
    GetNames.LastName:= "Blow"
    put ("First Name: "+ GetNames.FirstName)
    put ("Last Name: "+ GetNames.LastName)

type Names/*Can be any thing not just 'Names'*/ :
   record /*Records the types for Names*/
       FirstName,LastName : string /*There can be as many identifiers*/
   end record  /*There is no end*/ /*as you want and it doesn't just */
               /*for type*/        /*have to be a string*/
var GetNames : array 1..2 of Names /*Now this an array of Name, and this is*/
    GetNames(1).FirstName:= "Joe"      /*where things get more complicated.*/
    GetNames(2).FirstName:= "Sara"
    GetNames(1).LastName:= "Blow"
    GetNames(2).LastName:= "Bean"
    put ("First Name: "+ GetNames(Rand.Int (1,2)).FirstName)/*See how It can Show*/
    put ("Last Name: "+ GetNames(Rand.Int (1,2)).LastName)  /*different Names?   */

type Numbers :
    record
        Number : int  /*Any Name can be made for the identifiers*/
        TRUEFALSE : boolean
    end record

var GetNumber : array 1 .. 5 of Numbers /*Array of 5 Number*/
var Random, AllFalse : int  /*Needed conditional ints*/
put "Please type any 5 different numbers"
for i : 1 .. 5  /*This gets all 5 numbers and set them to false*/
    GetNumber (i).TRUEFALSE := false
    get GetNumber (i).Number
end for
loop
    AllFalse := 0  /*will be needed for the exit condition */
    Random := Rand.Int (1, 5)  /*Give the random Number*/
    if GetNumber (Random).TRUEFALSE = false then  /*Checks to see if the number has been used before*/
        put ("Number_"), (Random), (" is "), (GetNumber (Random).Number)  /*The put statment*/
        GetNumber (Random).TRUEFALSE := true  /*Makes sure that the question won't be asked again*/
    end if
    for i : 1 .. 5
        if GetNumber (i).TRUEFALSE = true then  /*Exit condition*/
            AllFalse += 1
        end if
    end for
    exit when AllFalse = 5
end loop
put "Done!"