Ответ:

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.

Объяснение:

думаю так