Переведите числа двоичную систему счисления,разложив каждое из них на сумму степеней числа 2.Используйте образец в первой строке

Можно либо циклы в общем цикле (коротко и красиво):

использовать Робот

алг

нач

нц пока снизу свободно

вниз

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

кц

кон

То же самое ещё понятнее и короче выглядит, если малые циклы в строчку записать:

использовать Робот

алг

нач

нц пока снизу свободно

вниз

нц пока справа свободно; вправо кц

нц пока снизу свободно; вниз кц

нц пока слева свободно; влево кц

кц

кон

Либо просто несколько циклов друг за другом (длинно и уныло):

использовать Робот

алг

нач

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

вниз

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

кон

Var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    while i < 7 do
    begin
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    end;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    i := 0;
    s := 0;
    
    repeat
        if (n mod 2 = 1) then begin
            s := s + n;
            i := i + 1;
        end;
        n := n + 1;
    until i >= 7;
    
    writeln(s);
end.

var
    i, n, s: integer;

begin
    readln(n);
    n := n + (n + 1) mod 2;
    s := 0;
    
    for i := 1 to 7 do
    begin
        s := s + n;
        writeln(n);
        n := n + 2;
    end;
    
    writeln(s);
end.