Függvény Főprogram
    Deklarálás: s: szöveg
    Deklarálás: betuszam: egész
    Értékadás: betuszam = 5
    Deklarálás: n: egész
    Értékadás: n = 10
    Deklarálás: m: egész
    Értékadás: m = 5
    Deklarálás: i: egész
    Deklarálás: j: egész
    Deklarálás: karakter: szöveg
    Deklarálás: mghdb: egész
    Értékadás: mghdb = 0
    Deklarálás: azonosdb: egész
    Értékadás: azonosdb = 0
    Deklarálás: masdb: egész
    Értékadás: masdb = 0
    Ciklus i = 0 .. n-1
        Értékadás: s = ""
        Ciklus j = 0 .. m-1
            Értékadás: karakter = Tochar(random(betuszam)+65)
            Értékadás: mghdb = mghdb+mghszamlalo(karakter)
            Értékadás: s = s&karakter
        Vége
        Ki: s&"  "
        Értékadás: azonosdb = azonosdb+egyforma(s)
        Értékadás: masdb = masdb+Eltero(s)
    Vége
    Ki: "Maganhangzók száma:"&mghdb
    Ki: "Magánhangzók aránya: "&mghdb/(n*m)
    Ki: "Egyforma karakterekből álló szavak száma: "&azonosdb
    Ki: "Eltérő karakterekből álló szavak száma: "&masdb
Vége

Függvény Egyforma (sor: szöveg)
    Deklarálás: i: egész
    Deklarálás: azonos: logikai
    Értékadás: azonos = true
    Értékadás: i = 0
    Amíg i<Len(sor) && azonos
        Értékadás: azonos = Char(sor, 0)==Char(sor, i)
        Értékadás: i = i+1
    Vége
    Deklarálás: x: egész
    Ha azonos
        Értékadás: x = 1
        Ki: "Azonos karakteres: "&sor
    hamis:
        Értékadás: x = 0
    Vége
Vissza: x

Függvény Eltero (sor: szöveg)
    Deklarálás: x: egész
    Deklarálás: i: egész
    Deklarálás: j: egész
    Deklarálás: mas: logikai
    Értékadás: mas = true
    Értékadás: i = 0
    Amíg i<Len(sor)-1 && mas
        Értékadás: j = i+1
        Amíg j<Len(sor) && mas
            Értékadás: mas = Char(sor, i)!=Char(sor, j)
            Értékadás: j = j+1
        Vége
        Értékadás: i = i+1
    Vége
    Ha mas
        Értékadás: x = 1
        Ki: "Eltérő karaktereket tartalmazó szó: "&sor
    hamis:
        Értékadás: x = 0
    Vége
Vissza: x

Függvény Mghszamlalo (karakter: szöveg)
    Deklarálás: maganhangzok: szöveg
    Deklarálás: mgh: logikai
    Deklarálás: i: egész
    Értékadás: maganhangzok = "AEOUI"
    Értékadás: mgh = false
    Értékadás: i = 0
    Deklarálás: x: egész
    Amíg i<Len(maganhangzok) && !mgh
        Értékadás: mgh = Char(maganhangzok , i)==karakter
        Értékadás: i = i+1
    Vége
    Ha mgh
        Értékadás: x = 1
    hamis:
        Értékadás: x = 0
    Vége
Vissza: x