Program ex0428
implicit none
i=123+321
write(*,"('123+321=',I4)")j
stop
end

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

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

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

Program ex0501
implicit none
logical(kind=2)::a,b
a=.true.
b=.false.
write(*,*)a,b
stop
end

Program ex0501
implicit none
real(kind=4)::speed
write(*,*)"speed:"
read(*,*) speed
if (speed>100.0) then
   write(*,*) "Slow down."
endif
stop
end

Program ex0430
integer::a=1
real::b=2.0
complex::c=(1.0,2.0)
character(len=20)::str="Fortran 90"
write(*,*) a,b,c,str
stop
end

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