PROGRAM calc
            INTEGER R, H, S, G, A, N

            R = 0
            H = 0
            S = 0
            G = 0
            A = 0
            N = 0

            PRINT *, 'Input the rate'
            READ (*,*) R

            PRINT *, 'Input the hours'
            READ (*,*) H

            PRINT *, 'Input the salary'
            READ (*,*) S

            G = R * H
            A = G * S
            N = A - G

            PRINT *, 'Netpay: ', N
      END PROGRAM calc