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 = "TanakaKakuei"
 
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

cHJvZ3JhbSBTaW1wbGVIYXNoCmltcGxpY2l0IG5vbmUKCmNoYXJhY3RlcihsZW49OSkgOjogc3R1ZGVudF9pZApjaGFyYWN0ZXIobGVuPTEzKSA6OiBuYW1lCmNoYXJhY3RlcihsZW49MTAwKSA6OiBkYXRhCgppbnRlZ2VyIDo6IGkKaW50ZWdlciA6OiBoYXNoCgpzdHVkZW50X2lkID0gIjIwMjQwMTM0OCIKbmFtZSA9ICJUYW5ha2FLYWt1ZWkiCgpkYXRhID0gdHJpbShzdHVkZW50X2lkKSAvLyB0cmltKG5hbWUpCgpoYXNoID0gMAoKZG8gaSA9IDEsIGxlbl90cmltKGRhdGEpCiAgICBoYXNoID0gbW9kKGhhc2ggKiAzMSArIGlhY2hhcihkYXRhKGk6aSkpLCAxMDAwMDAwMDA3KQplbmQgZG8KCnByaW50ICosICJTdHVkZW50IElEID0gIiwgc3R1ZGVudF9pZApwcmludCAqLCAiTmFtZSA9ICIsIG5hbWUKcHJpbnQgKiwgIkhhc2ggVmFsdWUgPSAiLCBoYXNoCgplbmQgcHJvZ3JhbSBTaW1wbGVIYXNo