Тело цикла может быть любым оператором, в частности, условным оператором или оператором цикла. Так можно организовывать сложные циклы. Например, сформировать единичную матрицу размером п х п можно с помощью оператора
for i: = l step / until n do for j : = 1 step 1 until n do
e [/, /]: = if / = f then / else 0
Однако оператор цикла не считается безусловным оператором. Это ограничивает возможности его использования в качестве внутреннего оператора в условном операторе. В полном условном операторе
if В then S2 else S
оператор S может, а оператор Sx не может быть оператором цикла (напомним, что оператор Sx должен быть безусловным), поэтому, если между символами then и else требуется поместить оператор цикла, его следует превратить в безусловный (составной) оператор, заключив в скобки begin и end,
Упражнения. 1. Составить  последовательность  операторов,  вычисляющих п-ю степень  (п ^ 1)   комплексного   числа,   заданного  своими   вещественной     и     мнимой     частями.
2. Даны  значения х, аъ       ап. Написать   операторы,   вычисляющие
3. Написать операторы,   которые по данному набору чисел а0, аъ     ап строят логический вектор (qb      qn), где qi имеет значение true, если щ больше всех предыдущих элементов набора, и false в противном случае.
4. Написать последовательность операторов, которая по данным целым числам^ /?г0, тъ тп определяет число р угловых точек графика зависимости mi от /, в которых угол направлен острием вверх, и число q точек, в которых угол смотрит вниз (например, для последовательности чисел 4, 7, 8, 6, 4, 7, 3, 1 — рис. 7.10.1 — в точках i = 1, 2, 5 угол направлен вверх, в точках i = 4, 6 — вниз; точки i = 0, 3, 7 не угловые).
5. Составить операторы, присваивающие логической переменной р значение true, если среди чисел аъ ап нет отрицательных, и значение false в противном  случае.
6. Даны числа хъ размером п X п:
а)
.., хп. Написать операторы, которые формируют матрицы
7. Написать операторы, которые присваивают переменной р значение true, если в каждом из четырех углов, образованных двумя данными пересекающимися прямыми, содержится хотя бы одна из п данных точек.