updating intro_course/task_4.f to f95