rezultati <- read.table("./Rezultati_SM_17012023.csv", header=TRUE, sep=";", dec=",")
print(rezultati[c(1, 4, 5, 6, 7)])
##     Vpisna Metodologija SM Skupaj Ocena
## 1 19570122           56 72     64     7