Program
ex0417
implicit none
integer
(
kind
=
2
)
::
a
read
(
*
,
*
)
a
write
(
*
,
*
)
a
stop
end