Ответ:
2, 1, 0, 3. это очень просто
Var
s : Real;
i,n : Integer;
Begin
s:=0;
Readln(n);
For i:=1 to n do s:=s-n/(2*i);
end.
Не совсем поняла расположение робота - над или под линией, поэтому сделала так.
использовать Робот
алг
нач
вправо
нц пока не сверху свободно
закрасить
вправо
кц
кон