program main implicit none character*13::input integer::x,y,op,len read *,input len = LEN_TRIM(input) op = find_op(input,len) read (input(1:op-1) ,*), x read (input(op+1:len),*), y if(input(op:op).eq.'+') then print '(i0)',x-y else print '(i0)',x+y end if contains function find_op(input,len) result(op) integer::op,len,i character*13::input do i=2,len if(input(i:i).eq.'+'.or.input(i:i).eq.'-') then op = i return end if end do end function find_op end program main