PROGRAM TOPLAM
        integer x,y,z
        print*, "sayi plz"
        read(*,*) x
        print*, "sayi plz"
        read(*,*) y
        topla(x,y)
        print*, "toplam=",  z
        pause


        integer function topla(integer a,integer b)
        return a + b
        end function
        print*, "topla=" topla(x,y)