Между соседними (по сторонам) клетками может стоять стена, через которую Робот пройти не может. На практике поле всегда ограниченного размера, а стенки стоят в заданных местах в зависимости от задачи. Задача состоит в закрашивании определенных клеток и остановке робота в заданном месте.
У Робота есть пять команд-приказов:
вверх
вниз
влево
вправо
закрасить
При выполнении одной из первых четырех команд Робот перемещается на одну клетку соответственно: вверх ↑, вниз ↓, влево ←, вправо →. Если Робот получит команду передвижения через стену, то он разрушится (произойдет отказ). По команде закрасить закрашивается клетка, в которой Робот находится в настоящий момент (если клетка уже закрашена, отказа не происходит).
var a,s,k: integer;
begin
readln(a);
s:=0;
k:=0;
while(a<>0) do
begin
if a>0 then begin
s:=s+a;
k:=k+1;
end;
readln(a);
end;
write(s/k);
end.