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