решить задание cif 15 в pascal abc net

Ответ:

uses Robot;

begin

 Task('cif15');

 while freefromright do

 begin

   right;

   up;

   if cellispainted then

   begin

     down;

     down;

     if cellispainted then

     begin

       up;

       paint

     end

     else up

   end

   else down

 end

end.

Объяснение:

фото