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

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

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

  

