Program ex0401
integer a
a=3
write(*,*) "a=",a
stop
end