Напишите для Робота алгоритм, закрашивающий все клетки, как на образце. Робот должен закрасить только клетки, удовлетворяющие данному условию. Например, для приведённого рисунка Робот должен закрасить следующие клетки (см. рисунок).
При исполнении алгоритма Робот не должен разрушиться, выполнение алгоритма должно завершиться. Конечное расположение Робота (см. рисунок). Алгоритм должен решать задачу для любого допустимого расположения стен и любого расположения и размера проходов внутри стен. ​

Такое задание уже было. Я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю)
  Только первых три

Задача 1:
var p: array[1..10] of integer;  
i:integer;
count:integer;
begin
for i:=1 to 10 do read(p[i]);
write('Сколько цифр массива хотите видеть? -> '); 
readln(count);
for i:=1 to count do write(p[i]:3);
end.

Задача 2:

var arr: array[1..10] of integer;   
i:integer;    
s:integer;    
count:integer;
begin
for i:=1 to 10 do
begin
arr[i]:=Random(-10,10);
if(arr[i]<0) then
begin
writeln(arr[i]:4);
s:=s+arr[i];
count:=count+1;
end;
end;
writeln('Среднее значение = ', s/count);
end.

Задача 3:

var arr: array[1..10] of integer;    
i:integer;    
crat:integer;    
id:integer;       
begin   
for i:=1 to 10 do   
begin   
read(arr[i]);   
crat:=arr[i] mod 3;   
if(crat = 0) then   
begin   
id:=arr[i];     
if(arr[i] = id) then writeln('Id = ', i:2);    
end;   
end;   
end.

#include <iostream>
using namespace std;
int main() {
    cout<<–2013<<" "<<21<<" "<<56<<endl;
    cout<<–2.034<<" "<<1.15<<" "<<5.36<<endl;
    cout<<"– 2 0 1 5"<<endl;
    cout<<"Наступил 2015 год"<<endl;
    cout<<"Поздравляю Всех с Новым"<<endl<<"2 0 1 5"<<endl<<"годом !"<<endl;
    cout<<"Выполнила задание"<<endl<<"Радченко Мария Александровна"<<endl
        <<"слушатель группы ЗМС-14-4"<<endl;
    system("PAUSE");
    return 0;
}

Результат выполнения программы:
-2013 21 56
-2.034 1.15 5.36
- 2 0 1 5
Наступил 2015 год
Поздравляю Всех с Новым
2 0 1 5
годом !
Выполнила задание
Радченко Мария Александровна
слушатель группы ЗМС-14-4
Для продолжения нажмите любую клавишу . . .