program math
implicit none
integer :: a, b, c
a = 10
b = 3
c = a + b
c = a - b
c = a * b
c = a / b
end program