вот решение мож кому пригодится
uses robot;
begin
task ('cif10');
while freefromright do begin
right;
if cellispainted and freefromdown then begin
down;
paint;
up;
end;
end;
end.


А ВОТ РОБОТ CIF15
Uses Robot;
begin
Task('cif15');
while freefromright do begin
right;
Up;
if CellIsPainted then
begin
Down;
Down;
if CellIsPainted then
begin
Up;
Paint;
Up;
end
else
begin
Up;
Up;
end;
end;
Down;
end;
end.