Составьте программу создания изображения на любое поле. ( Pascal ABC робот) СРОЧНО НУЖНО!!!

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)uses Robot;beginvar (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 dobeginFor var j:=1 to n-1 dobeginPaint;if i.IsEven then Left else Right;Paint;end;if i<>m div 2+m mod 2 then begin Down; Down; end;end;end.