Товарищи программисты!

Как реализовать вот такой кусочек алгоритма? Если есть два цикла с ветвлением

(паскаль)