(* Задача: на квадратном поле замостить красными плитками
 левую нижнюю половину поля, включая диагональ *)

Подпрограмма Лестница
{
 Делать пока ( НЕ красная ) 
 {
  Положить( к ); 
  Шаг вправо;
 };

 Делать пока ( НЕ слева стена   ) 
 {
  Шаг влево;
 };
 Шаг вверх;
}


Программа
{
 Перейти на( 1,1 );
 Делать пока ( НЕ сверху стена  ) 
 { 
  Шаг вверх;
 }; (* Перемещаемся в верхний левый угол *) 
 Делать пока ( НЕ снизу стена  )
 {
  Положить( К );
  Шаг вниз;
  Шаг вправо; 
 }; (* Выкладываем диагональ красными плитками *)
 Положить( К );
 Перейти на( 1,1 );
 Делать пока ( НЕ сверху стена  ) 
 {
  Вызвать Лестница ; 
 };
}
