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

Подпрограмма Цвет_квадрат (короб:k,m,z)
цвет c ;
{ Если ( z = 1 ) то {c:= к; }
  иначе { c:=з; }
  Перейти на( k, m);
    Положить( c );
    Шаг вверх;
    Положить( c );
    Шаг вверх;
    Положить( c );
    Шаг вправо;
    Положить( c );
    Шаг вправо;
    Положить( c );
    Шаг вниз;
    Положить( c );
    Шаг вниз;
    Положить( c );
    Шаг влево;
    Положить( c );
} (* выкладываем квадрат нужного цвета в нужном месте *)

Программа 

{ Вызвать Цвет_квадрат(2,2,1) ;
  Вызвать Цвет_квадрат(2,6,2) ;
    
}

