program example10b include "omp_lib.h" integer n !$omp parallel private(n) n=omp_get_thread_num() print *, "Значение n (начало): ", n !$omp single n=100; !$omp end single copyprivate(n) print *, "Значение n (конец): ", n !$omp end parallel end