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

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

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



