编辑代码

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