if 1

Ответ от Вован де Морт[гуру]
Этот фрагмент на Паскале перебирает символы строки S от первого до Len. Для каждого символа S[i] проверяется, входит ли он в множество D. Если входит, символ добавляется в конец S2, если нет, ничего не меняется. В результате S2 собирает только те символы исходной строки, которые входят в D, и в том же порядке. Перед циклом S2 обычно должна быть пустой. После if здесь стоит логическое условие с оператором in. В Pascal нельзя использовать просто число как условие, поэтому единица сама по себе не была бы проверкой, хотя в некоторых других языках она означает истину.