Create No3.f90

Homework NO.3