робот1

uses
  Robot;

begin
  Task('count15');
  
  while not wallFromRight do
  begin
    paint;
    right;
    if freeFromRight then
    begin
      right;
      if freeFromRight then
      begin
        right;
        paint;
      end;
    end;
  end;
end.