Составляй сам(а). Ты учишься или кто?
<span>var
n, i, sum: integer;
begin
read(n);
for i := 1 to n do sum := sum + i;
writeln(sum);
end.</span>
Если сверху стена и снизу стена
то
нц пока справа свободно
вправо
кц
иначе
нц пока слева свободно
влево
кц
все
..... Вроде бы так если правильно условие понял