PROGRAM ATCODER

implicit none
integer :: a,b
character :: op

read(*,*) a,op,b

if ( op == '+' ) then
  write(*,'(i0)') a+b
else
  write(*,'(i0)') a-b
end if

contains
!!!!!! サブルーチンは↓
!!!!!!

END PROGRAM ATCODER
