program example19b include "omp_lib.h" integer i !$omp parallel private(i) !$omp do schedule (static) C!$omp do schedule (static, 1) C!$omp do schedule (static, 2) C!$omp do schedule (dynamic) C!$omp do schedule (dynamic, 2) C!$omp do for schedule (guided) C!$omp do for schedule (guided, 2) do i=0, 9 print *, "Нить ", omp_get_thread_num(), & " выполнила итерацию", i call sleep(1) end do !$omp end parallel end