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