program main implicit none integer rain,windspeed write(*,*) "rain:" write(*,*) "windspeed:" read(*,*) rain read(*,*) windspeed if(rain>500 .or. windspeed>10) then write(*,*) "停止上班上课" else write(*,*) "照常上班上课" end if stop end