программа исполнители робот нужно написать программу для робота
На паскале будет так: begin up; while FreeFromRight do Right; end.