[Pedido] School

media = 28

materias = {
    'Artes',
    'Biologia',
    'Educação Física',
    'Espanhol',
    'Filosofia',
    'Física',
    'Geografia',
    'História',
    'Inglês',
    'Matemática',
    'Português',
    'Química',
    'Sociologia',
}

bimestres = {
    [1]={
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
    };
    [2]={
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
    };
    [3]={
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
    };
    [4]={
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
        "0",
    };
}

for i in pairs (bimestres) do
    i=tonumber(i)
end

contar = function()
    local m = materias
    local b = bimestres
    local n = media
    local p = string.char
    for v = 1,#m do
        if b[1][v]+b[2][v]+b[3][v]+b[4][v] < n then
            print(p(77,97,116,195,169,114,105,97,32,58,32)..m[v]..'\n\n\t\t'..p(80,111,110,116,111,115,32,84,111,116,97,105,115,32,58,32,32)..b[1][v]+b[2][v]+b[3][v]+b[4][v]..'\n\t\t'..p(80,111,110,116,111,115,32,112,97,114,97,32,102,101,99,104,97,114,32,58,32)..n-(b[1][v]+b[2][v]+b[3][v]+b[4][v])..'\n')
        else
            print(p(77,97,116,195,169,114,105,97,32,58,32)..m[v]..'\n\n\t\t'..p(80,111,110,116,111,115,32,84,111,116,97,105,115,32,58,32,32)..b[1][v]+b[2][v]+b[3][v]+b[4][v]..'\n\t\t'..p(80,111,110,116,111,115,32,97,99,105,109,97,32,100,97,32,109,195,169,100,105,97,32,58,32)..(b[1][v]+b[2][v]+b[3][v]+b[4][v])-n..'\n')
        end
    end
end

contar()