Program
ex0418
implicit none
real
::
a
,
b
,
c
read
(
*
,
*
)
a
,
b
,
c
write
(
*
,
*
)
a
+
b
+
c
stop
end