function main()
    betuszam = 5
    n = 10
    m = 5
    mghdb = 0
    azonosdb = 0
    masdb = 0
    loop i from 0 to n - 1
        s = ""
        loop j from 0 to m - 1
            karakter = ToChar(Random(betuszam) + 65)
            mghdb = mghdb + Mghszamlalo(karakter)
            s = s + karakter
        end loop
        output s + "  "
        azonosdb = azonosdb + Egyforma(s)
        masdb = masdb + Eltero(s)
    end loop
    output "Maganhangzók száma:" + mghdb
    output "Magánhangzók aránya: " + mghdb / (n * m)
    output "Egyforma karakterekből álló szavak száma: " + azonosdb
    output "Eltérő karakterekből álló szavak száma: " + masdb
end function

function Egyforma(sor)
    azonos = True
    i = 0
    loop while i < Len(sor) AND azonos
        azonos = Char(sor, 0) = Char(sor, i)
        i = i + 1
    end while
    if azonos then
        x = 1
        output "Azonos karakteres: " + sor
    else
        x = 0
    end If

    return x
end function

function Eltero(sor)
    mas = True
    i = 0
    loop while i < Len(sor) - 1 AND mas
        j = i + 1
        loop while j < Len(sor) AND mas
            mas = Char(sor, i) ≠ Char(sor, j)
            j = j + 1
        end while
        i = i + 1
    end while
    if mas then
        x = 1
        output "Eltérő karaktereket tartalmazó szó: " + sor
    else
        x = 0
    end If

    return x
end function

function Mghszamlalo(karakter)
    maganhangzok = "AEOUI"
    mgh = False
    i = 0
    loop while i < Len(maganhangzok) AND NOT mgh
        mgh = Char(maganhangzok, i) = karakter
        i = i + 1
    end while
    if mgh then
        x = 1
    else
        x = 0
    end If

    return x
end function