program blokshema;

var a,c:integer;

begin

    a:=6;

    c:=1;

    repeat

          a:=a-1;

          c:=2*c

    until

         a=1;

    write('a=',a,';c=',c);

end.