program SimpleHash
implicit none
 
character(len=9) :: student_id
character(len=13) :: name
character(len=100) :: data
 
integer :: i
integer :: hash
 
student_id = "202401348"
name = "KanekoMinato"
 
data = trim(student_id) // trim(name)
 
hash = 0
 
do i = 1, len_trim(data)
    hash = mod(hash * 31 + iachar(data(i:i)), 1000000007)
end do
 
print *, "Student ID = ", student_id
print *, "Name = ", name
print *, "Hash Value = ", hash
 
end program SimpleHash

cHJvZ3JhbSBTaW1wbGVIYXNoCmltcGxpY2l0IG5vbmUKIApjaGFyYWN0ZXIobGVuPTkpIDo6IHN0dWRlbnRfaWQKY2hhcmFjdGVyKGxlbj0xMykgOjogbmFtZQpjaGFyYWN0ZXIobGVuPTEwMCkgOjogZGF0YQogCmludGVnZXIgOjogaQppbnRlZ2VyIDo6IGhhc2gKIApzdHVkZW50X2lkID0gIjIwMjQwMTM0OCIKbmFtZSA9ICJLYW5la29NaW5hdG8iCiAKZGF0YSA9IHRyaW0oc3R1ZGVudF9pZCkgLy8gdHJpbShuYW1lKQogCmhhc2ggPSAwCiAKZG8gaSA9IDEsIGxlbl90cmltKGRhdGEpCiAgICBoYXNoID0gbW9kKGhhc2ggKiAzMSArIGlhY2hhcihkYXRhKGk6aSkpLCAxMDAwMDAwMDA3KQplbmQgZG8KIApwcmludCAqLCAiU3R1ZGVudCBJRCA9ICIsIHN0dWRlbnRfaWQKcHJpbnQgKiwgIk5hbWUgPSAiLCBuYW1lCnByaW50ICosICJIYXNoIFZhbHVlID0gIiwgaGFzaAogCmVuZCBwcm9ncmFtIFNpbXBsZUhhc2g=