program ex0302
 implicit none
 integer :: A
 A = 2+2*4-3
 write(*,*) '2+2*4-3=', A
 stop
 end program ex0302