46

6.2. Сложные операторы

 фрагмент 1                                                                      фрагмент 2

for i:= 1 to 10 do begin

with MyArray[i] do begin

  with MyArray[i] do begin

  for i:= 1 to 10 do begin

    X:= i; Y:= 10 - i;

    X:= i; Y:= 10 - i;

  end { with };

  end { for };

end { for };

end { with };