//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

uses Robot;
begin
var (m,n):=(14,6);
Field(n,m);
while not(WallFromUp) do Up;
while not(WallFromLeft) do Left;
for var i:=1 to m div 2+m mod 2 do
begin
For var j:=1 to n-1 do
begin
Paint;
if i.IsEven then Left else Right;
Paint;
end;
if i<>m div 2+m mod 2 then begin Down; Down; end;
end;
end.