Procedure printSentenceInChatStream is
-- Variable declaration
-- Each element of the array will be a string of characters like mySentecesList:= ("hi world", "Hi mate, how are you", "etc")
    mySentencesList = type array();
    x = type integer; -- Minimum value of variable x will be the first element of the array and maximum value will be the max lengh of the array
    timer = type time; -- each 15 minutes or 10 min

-- Declaration of functions and procedures
function randomIntegerNumber (sentences: type array) return integer
    x = type integer;
    -- the vaule of x will be an integer beetwen first element of the array and the last element of the array
    x:= random(sentences.FirstElementOfTheArray(), sentences.LastElementOfTheArray());
return x;

Procedure checkPassedtime (timePassed: type time) is
    timer: type time;
    timer:= timePassed;
    -- here some operations for check passed time
end procedure;

#start program
begin
mySentencesList.addElement:= ("Hi world");
mySentencesList.addElement:= ("Few are those who see with their own eyes and feel with their own hearts.");
mySentencesList.addElement:= ("Imagination is more important than knowledge. Knowledge is limited. Imagination encircles the world.");
mySentencesList.addElement:= ("Unthinking respect for authority is the greatest enemy of truth.");
mySentencesList.addElement:= ("Try not to become a man of success, but rather try to become a man of value.");
mySentencesList.addElement:= ("I am by heritage a Jew, by citizenship a Swiss...");

x:= randomIntegerNumber(mySentencesList());
If checkPassedTime(timer) then
    printChatMessage(mySentenceList(x));
en if;
ç
end printSentenceInChatStream;