(* Задача: на левой половине поля 27 х 27 выложен некоторый орнамент;
 требуется на правой половине выложить паркет, симметричный данному
 относително вертикальной прямой, делящей это поле пополам *)
(* Перед выполнением программы на левой половине должен быть создан какой-то
 орнамент; для примера можно использовать файл сим_бабочка.prk *)


Программа
цел в, г, i, j  
{
 в := 27;
 г := 27;

 Делать от i := 1 до в 
 { 
  Делать от j := 1 до г/2
  {
   Перейти на( j ,i );
   Если ( красная ) то 
   { Перейти на( г - j + 1 ,i ); 
     Положить( к );
   }
   Если ( зеленая ) то 
   { Перейти на( г - j + 1 ,i ); 
     Положить( з );
   }
  };
 };
}

