решите задачу cif2 из встроеннного задачника используя внутри цикла команду ветвления



мне очень срочно! заранее спасибо)​

uses Robot;

begin

   Task('cif2');

   while FreeFromRight do begin

       Right;

       if WallFromUp or WallFromDown then Paint;

   end;

end.