rezultati <- read.table("./Rezultati_metodologija_17012023.csv", header=TRUE, sep=";", dec=",")
print(rezultati[c(1, 4, 5, 6, 7)])
##     Vpisna Metodologija   SM Skupaj Ocena
## 1 19184515           95 93.5  94.25    10